Текущий архив: 2007.02.04;
Скачать: CL | DM;
Вниз
фон рабочего стола Найти похожие ветки
← →
krec (2007-01-16 18:14) [0]Почему не устанавливается фон рабочего стола? Делаю так:
procedure SetWallpaper(sWallpaperBMPPath:String;bTile:boolean);
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;
просто убирается картинка...
← →
krec (2007-01-16 18:39) [1]дельфимастер не тот, что был раньше...
← →
Sapersky (2007-01-16 19:31) [2]Неужели раньше не задавали глупых вопросов? Хорошее, наверное, было время :)
Где, собственно, в приведённом коде установка ФОНА рабочего стола?
← →
krec (2007-01-16 20:25) [3]я эту процедуру вызываю, например, setwallpaper("d:\pic.jpg", true);
но ничего...
Где-то в нете нашел это
← →
Sleepeer (2007-01-16 21:44) [4]Пипец 8)
← →
antonn © (2007-01-16 22:54) [5]
procedure SetWallpaper(Value: string);
begin
SystemParametersInfo(spi_SetDeskWallpaper, 0, PChar(Value) , spif_UpdateIniFile);
end;
← →
kingsoft © (2007-01-16 23:44) [6]Попробуй может поможет! Изменение фона рабочего стола по нажатию на кнопку.
uses ...Registry; //подключаем модуль
...
procedure TForm1.Button1Click(Sender: TObject);
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;
← →
Zeqfreed © (2007-01-17 01:01) [7]
> дельфимастер не тот, что был раньше...
Когда раньше? За все это время так и не узнал, что на рабочий стол можно установить только bmp-картинку? (если не брать во внимание ActiveDesktop)
Страницы: 1 вся ветка
Текущий архив: 2007.02.04;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.051 c
