Search results for 'TRegIniFile'. 1 post(s) found.
- 2007/08/25 How To Change The Desktop Wallpaper
Change the Wallpaper of your system by code
uses
Registry, WinProcs;
procedure SetWallPaper(
sWallpaperBMPPath : String;
bTile : boolean );
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create('Control Panel\Desktop' );
with reg do
begin
WriteString( '', 'Wallpaper', sWallpaperBMPPath );
if( bTile )then
begin
WriteString( '', 'TileWallpaper', '1' );
end else
begin
WriteString( '', 'TileWallpaper', '0' );
end;
end;
reg.Free;
SystemParametersInfo(
SPI_SETDESKWallpaper,
0,
Nil,
SPIF_SENDWININICHANGE );
end;
Registry, WinProcs;
procedure SetWallPaper(
sWallpaperBMPPath : String;
bTile : boolean );
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create('Control Panel\Desktop' );
with reg do
begin
WriteString( '', 'Wallpaper', sWallpaperBMPPath );
if( bTile )then
begin
WriteString( '', 'TileWallpaper', '1' );
end else
begin
WriteString( '', 'TileWallpaper', '0' );
end;
end;
reg.Free;
SystemParametersInfo(
SPI_SETDESKWallpaper,
0,
Nil,
SPIF_SENDWININICHANGE );
end;
Another posts included in "Delphi"
| How To Get The Windows OS Version (0) | 2007/08/25 |
| How To Change The System Time (0) | 2007/08/25 |
| How To Find Out Total And Available Memory (0) | 2007/08/25 |
| How To Get The Windows Language (0) | 2007/08/25 |
| How To Make A Gradient Filled Form (0) | 2007/08/25 |
| How can I hide the caption bar on a form? (0) | 2007/08/25 |
| How To Send An E-mail By Code (0) | 2007/08/25 |
| How To Open Url In Default Webbrowser (0) | 2007/08/25 |
Desktop Wallpaper,
SetWallPaper,
SPIF_SENDWININICHANGE,
SPI_SETDESKWALLPAKER,
TileWallpaper,
TRegIniFile,
Wall Paper,
Wallpaper
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/28 22:57
moneyideas
-
Subject different money making ideas
2010/01/29 07:10
moneyideas
-
Subject different money making ideas
2010/01/31 16:39
moneyideas
Prev
Rss Feed