| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

изменение рисунка рабочего стола.. [D7, WinXP]

паЗер ©   (2007-08-30 20:06:00) 

как можно изменить рисунок рабочего стола?путь к рисунку хранится в string

---

Dartlen   (2007-09-01 15:02:00) [1]

Всё намного проще
function ChangeWallpaper(const FileName:string): bool;
var APCh:PAnsiChar;
begin
APCh:=PAnsiChar(FileName);
result:=SystemParametersInfo(SPI_SETDESKWALLPAPER,0,APCh,SPIF_SENDCHANGE);
end;
где Filename - полный путь к файлу BMP который будет установлен на рабочий стол.

---

Denis_   (2007-08-31 14:15:00) [2]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, comobj, shlobj, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure MyWalpapper;
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
  as IActiveDesktop;
ActiveDesktop.SetWallpaper('C:\Windows\web\wallpaper\Áåçì 55;òåæíîñòü.bmp', 0); //Çäåñü! Õîòåëîñü áû èìÿ ôàéëà çàñóíóòü â ñòðîêîâóþ ïåðåìåííóþ
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MyWalpapper;
end;

end.

Этот код был скопирован с этого сайта меньше месяца назад. Удачи.

---

trubin   (2007-08-30 20:44:00) [3]

http://www.yandex.ru/yandsearch?text=delphi+%E8%E7%EC%E5%ED%E8%F2%FC+%F4%EE%ED+%F0%E0%E1%EE%F7%E5%E3%EE+%F1%F2%EE%EB%E0

---

Наверх