13.02.2008, 08:45
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Код:
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create('Control Panel');
Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\твой рисунок.bmp');
Reg.WriteString('desktop', 'TileWallpaper', '0');
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;
можно так.....
-------------------
или вот:
SystemParametersInfo(
UINT uiAction, // Системный параметр
UINT uiParam, // зависит от параметра и действия
PVOID pvParam, // зависит от параметра и действия
UINT fWinIni // флаг: нужно ли обновить настройки пользователя(файл WinIni)
);
Эта функция позволяет изменять настройки системы...
В данном случае: параметр SPI_SETDESKWALLPAPER Устаналивает обои. pvParam-путь к картинке в формате BMP...
--
Код:
uses
windows;
var
s: string;
begin
s := paramStr(1);
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @S[1],
SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE);
------------------
можно так.... |
|
|