Работа с реестром

← →
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.

to serd_hhc>
Спасибо

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