quarta-feira, 4 de novembro de 2009

Alterando o papel de parede do windows

Program wallpapr;
uses Registry, WinProcs;
procedure SetWallpaper(sWallpaperBMPPath : String; bTile : boolean );
var
reg : TRegIniFile;
begin
// Mudando o Registro HKEY_CURRENT_USER
// Control PanelDesktop
// TileWallpaper (REG_SZ)
// Wallpaper (REG_SZ)
reg := TRegIniFile.Create('Control PanelDesktop' );
with reg do
begin
WriteString( '', 'Wallpaper',sWallpaperBMPPath );
if( bTile )then
begin
WriteString( '', 'TileWallpaper', '1' );
end
else
begin
WriteString( '', 'TileWallpaper', '0' );
end;
end;
reg.Free;

Nenhum comentário:

Postar um comentário