| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Изменение фонового рисунка рабочего стола [D7, XP]
Volkodav © (2006-03-06 18:52:00)Уважаемые Мастера, подскажите, как изменить фоновый рисунок рабочего стола посредством Delphi !Заранее благодарен !
Volkodav (2006-03-06 19:51:00) [1]Спасибо!
EvS (2006-03-06 19:49:00) [2]>А куда писать имя файла-картинки?
procedure SetWallpaper(Value: string); Value-это вот оно и есть
Volkodav (2006-03-06 19:36:00) [3]А куда писать имя файла-картинки?
Объясните пожалуйста на примере:имеется файл 'c:\bitmap.bmp' надо сделать его фоновым рисунком рабочего стола.
antonn (2006-03-06 19:12:00) [4]сначала найти тот рисунок:
function GetWallpaper: string;
var Reg: TRegistry;
begin
{$IFDEF WIN32}
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Control Panel\desktop\', False);
Result := Reg.ReadString('Wallpaper');
Reg.Free;
{$ELSE}
Reg := TIniFile.Create(WinIniPath);
Result := Reg.ReadString('Desktop', 'Wallpaper', '');
Reg.Free;
{$ENDIF}
end;
загрузить, изменить.
сохранить на диск, и указать этот файл как картинку рабочего стола:
procedure SetWallpaper(Value: string);
begin
SystemParametersInfo(spi_SetDeskWallpaper, 0, PChar(Value) , spif_UpdateIniFile);
end;
begin...end (2006-03-06 18:53:00) [5]SystemParametersInfo
| |
