| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с реестром [D5, Win95/98, WinME, NT4, Win2k, WinXP]
Igit © (2002-06-20 20:35:00)Помогите зделать аналог этой процедуре на 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 :)).
Igit (2002-06-21 18:57:00) [1]to serd_hhc>
Спасибо
serd_hhc (2002-06-21 04:22:00) [2]2Igit>
E-Milo smotri. Tam pro reestr.
2All>
Zvenite. Che-to klava gluchit.
| |
