Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.20;
Скачать: 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 вся ветка

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
14-64285
phantom2040
2003-03-06 10:12
2003.03.20
Помогите с созданием инсталяции


1-64091
Ork
2003-03-09 11:26
2003.03.20
TRichEdit


7-64408
artdeveloper
2003-01-22 11:24
2003.03.20
Поймать вывод на принтер


1-64140
Barman
2003-03-06 17:07
2003.03.20
Проблема с WinXP


1-64143
MadGhost
2003-03-07 07:37
2003.03.20
MDI