Текущий архив: 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
