Текущий архив: 2008.05.11;
Скачать: CL | DM;

Вниз

изменение рисунка рабочего стола..   Найти похожие ветки 

← →
паЗер   (2007-08-30 20:06) [0]

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

---

← →
trubin ©   (2007-08-30 20:44) [1]

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

---

← →
Denis_ ©   (2007-08-31 14:15) [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\Áåçì&#2 55;òåæíîñòü.bmp", 0); //Çäåñü! Õîòåëîñü áû èìÿ ôàéëà çàñóíóòü â ñòðîêîâóþ ïåðåìåííóþ
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

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

end.

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

---

← →
Dartlen ©   (2007-09-01 15:02) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.05.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c