[Денис]

Народ может я что-то не так делаю?
после нажатия на кнопку вместо обоев остаётся тока фон!
но почему-то когда я нажимаю св-ва то в образце нарисован нужный рисунок!
ХЭЛП ПЛЗ!!!

Код:

 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
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;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWallpaper('d:\v.jpg', False );
end;
end.

[Decoding]

http://www.delphisources.ru/forum/sh...t=%CE%E1%EE%E8

[Денис]

Спасибо! а тогда ешо один вопрос мона ли поставить на рабочий стол картинку из переменной TJPEGImage?

[Decoding]

Скорее всего такой вариант не пройдет… Это должен быть файл, хранящийся на диске, а не данные в памяти…

[Денис]

Жаль... Но и на том СПАСИБО!!!