Форум: "Система";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
ВнизКак програмно сменить обои в 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 вся ветка
Форум: "Система";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c