Фон рабочего стола.

[Rahim1993]

Доброе вам время суток. Подскажите пожалуйста, как сменить фон рабочего стола? Новая папка (2).rar

[Terran]

procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETDESKWAL LPAPER, 0, PChar('C:\Picture.bmp'),
SPIF_UpdateIniFile);
end;

Только ставь картинки с расширением .bmp!

[Gauss]

Чтобы изменить обои на рабочем столе необходимо сделать изменения в файле настроек win.ini, записав туда путь к нужной bmp-картинке. Реализовать это можно при помощи объекта типа treginifile, чтобы можно было его использовать, надо в uses добавить модули registry и winprocs. Допустим картинка на рабочем столе будет меняться по клику на кнопку. Тогда в обработчике события onclick напишите:

procedure tform1.button1click(sender: tobject);
var
reg : treginifile;
swallpaperbmppath:string;
btile:boolean;
begin
// Изменяем ключи реестра
// hkey_current_user
// control panel\desktop
// tilewallpaper (reg_sz)
// wallpaper (reg_sz)
reg := treginifile.create('control panel\desktop' );
with reg do begin

//путь к картинке, я думаю вам какой-нибудь другой захочется
swallpaperbmppath:='С:\borland\delp hi 3\images\backgrnd\writing.bmp';
//По центру рабочего стола
btile:=false;

writestring( '', 'wallpaper', swallpaperbmppath );
if( btile )then begin
writestring('', 'tilewallpaper', '1' );
end
else begin
writestring('', 'tilewallpaper', '0' );
end;
end;
reg.free;
// Оповещаем всех о том, что мы
// изменили системные настройки
systemparametersinfo(spi_setdeskwal lpaper, 0, nil, spif_sendwininichange );
end;

[mihali4]

А вот и продолжение статьи:

Но надо помнить что этот код будет действовать только при отключенном activedesctop. Если же он у Вас включен или Вы хотите установить на Рабочий Стол картинку в формате .jpg или .gif, то Вам потребуется использовать код, приведенный ниже

uses
comobj, shlobj;

procedure changeactivewallpaper;
const
clsid_activedesktop: tguid = '{75048700-ef1f-11d0-9888-006097deacf9}';

var
activedesktop: iactivedesktop;

begin
activedesktop := createcomobject(clsid_activedesktop ) as iactivedesktop; activedesktop.setwallpaper('c:windo wsforest.jpg',0);
activedesktop.applychanges(ad_apply _all or ad_apply_force);
end;

Ну вот вроде бы и все, используйте на здоровье!..

(С) Автор статьи: Михаил Христосенко

[Air]

А у меня 1-й метод заработал только после доработки.

Const
Walp='C:\123.bmp';
...
reg := treginifile.create('S-1-5-21-343818398-287218729-725345543-1003\Control Panel\Desktop' );
reg.RootKey:=HKEY_USERS;
with reg do begin

btile:=false;

writestring( '', 'wallpaper', Walp );
reg.free;

А 2-й только после введения константы Walp.

- Это, что? -разновидность ОС или версий Delphi? (у меня 7-я)

P.S. Не обязательно что у всех этот ключ одинаков (S-1-5-21-343818398-287218729-725345543-1003)

[Rahim1993]

Сообщение от Terran

Только ставь картинки с расширением .bmp!

Terran, мне нужно расширение .jpeg, .jpg. и т.д. Если это возможно.

[Rahim1993]

Вот код.(С этого сайта).


Uses ShlObj, ComObj;

procedure ChangeWallpaper;
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop )
as IActiveDesktop;
ActiveDesktop.SetWallpaper('Путь к файлу', 0);
ActiveDesktop.ApplyChanges(AD_APPLY _ALL or AD_APPLY_FORCE);
end;

Затем в нажатии на кнопку пишем:

procedure TForm1.ButtonClick(Sender: TObject);
begin
ChangeWallpaper;
end;




В место "Путь к файлу" можно как нибудь поставить фотку из Image1?

[SunKnight]

SystemParametersInfo(SPI_SetDeskWal lPaper, 0, PChar('D:\1.bmp'),SPIF_UpdateiniFil e);

[Air]

Сообщение от Rahim1993

Terran, мне нужно расширение .jpeg, .jpg. и т.д. Если это возможно.

Код конвертирования

Uses JPEG;

Function ConverterJPEGToBMP(JpgImage:TJpegImage):Tbitmap;
begin
Result:=TBitmap.Create;
Result.Width := JpgImage.Width;
Result.Height := JpgImage.Height;
Result.Canvas.Draw(0, 0, JpgImage);
end;

[Rahim1993]

Сообщение от Air

Код конвертирования

Uses JPEG;

Function ConverterJPEGToBMP(JpgImage:TJpegImage):Tbitmap;
begin
Result:=TBitmap.Create;
Result.Width := JpgImage.Width;
Result.Height := JpgImage.Height;
Result.Canvas.Draw(0, 0, JpgImage);
end;

Это конвертирование BMP в Jpeg?