Wednesday, January 5, 2011

Creating a Wallpaper Using Delphi

To the wallpaper in Windows 95 you must use the Win32 
API function SystemParametersInfo. SystemParametersInfo retrieves
and sets system wide parameters including the wallpaper. The
code below illustrates setting the wallpaper to the Athena bitmap.
procedure TForm1.Button1Click(Sender: TObject);var
s: string;begin
s := 'c:\windows\athena.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(s), 0)end;

0 comments:

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Kang Iwan K-sev | Thank's for your visit To My Site - Ridwan Mulyana | Cibeureum