Скачать: CL | DM;

Как програмно сменить обои в WinXP и Win98   Найти похожие ветки 

← →
Стас   (2003-01-27 16:33) [0]

Помогите! Очень нужно узнать как програмно сменить обои в WinXP и Win98

---

← →
bak ©   (2003-01-27 19:01) [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;


попробуй, может прокатит Ж:)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c