Как програмно сменить обои в WinXP и Win98
Стас © (2003-01-27 16:33:00)
Помогите! Очень нужно узнать как програмно сменить обои в
WinXP и Win98
bak (2003-01-27 19:01:00) [1]
procedure ChangeWalls(FileName, Mode: string);
var reg : TRegistry;
begin
reg:= TRegistry.Create;
reg.RootKey:= HKEY_CURRENT_USER;
reg.OpenKey("Control Panel\Desktop\", true);
if AnsiLowerCase(ExtractFileExt(FileName))= ".bmp" then
reg.WriteString("WallPaper", FileName);
if Mode="Center" then begin
reg.WriteString("TileWallPaper", "0");
reg.WriteString("WallPaperStyle", "0");
end;
if Mode="Tile" then begin
reg.WriteString("TileWallPaper", "1");
reg.WriteString("WallPaperStyle", "0");
end;
if Mode="FullSize" then begin
reg.WriteString("TileWallPaper", "0");
reg.WriteString("WallPaperStyle", "2");
end;
reg.CloseKey;
reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil,
SPIF_SENDWININICHANGE );
end;
попробуй, может прокатит Ж:)
Наверх 
ЧАТ |
Орешник |
|
