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

Вниз

Работа с реестром   Найти похожие ветки 

← →
Igit ©   (2002-06-20 20:35) [0]

Помогите зделать аналог этой процедуре на API.
procedure SetWallpaper(sWallpaperBMPPath:String;bTile:boolean);
uses Registry, WinProcs;
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create("Control Panel\Desktop" );
with reg do begin
WriteString( "", "Wallpaper",
sWallpaperBMPPath );
if( bTile )then
begin
WriteString("", "TileWallpaper", "1" );
end else begin
WriteString("", "TileWallpaper", "0" );
end;
end;
reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;

Вы только не ругайтесь, но я просмотрел все API ф-ии для работы с реестром, и ничего не понял.
Pls :)).

---

← →
serd_hhc ©   (2002-06-21 04:22) [1]

2Igit>
E-Milo smotri. Tam pro reestr.
2All>
Zvenite. Che-to klava gluchit.

---

← →
Igit ©   (2002-06-21 18:57) [2]

to serd_hhc>
Спасибо

---

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

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

Наверх

Память: 0.47 MB
Время: 0.015 c