Рабочий стол

[ZvEr_HaCkEr]

Всем привет.Возникла проблема по установки картинки на рабочий стол.Юзаю следуещию функцию

procedure setwallpaper(fname:string);

var

reg : treginifile;

begin

reg := treginifile.create('control panel\desktop' );

with reg do
 begin

writestring( '', 'wallpaper',fname );

writestring('', 'tilewallpaper', '0' );

end;

reg.free;

systemparametersinfo(spi_setdeskwallpaper, 0, nil,spif_sendwininichange );

end;

ну собственно так ставлю

    setwallpaper('sources\001020-2545724-527886-7875901-527848\2.jpg');

проблема в том,что в семерке ставится все нормально,а в пожившей xp'шке не ставится(на чистую систему ставится нормально).
P.S проверял на двух других поживших хрюшках-та же проблема.
А FSViewer ставит нормально и система тоже ставит нормально
Подскажите как исправить

[grafgrial]

У себя на хрюшке так в проге сделал

const
 Desktop: TGuid='{75048700-EF1F-11D0-9888-006097DEACF9}'; //для получения доступа к рабочему столу
var
 ActiveDeskTop:IActiveDesktop; // вроде понятно, зачем

begin
 ActiveDesktop:=CreateComObject(Desktop) as IActiveDesktop; //создаем объект и получаем разрешение доступа к рабочему столу
 ActiveDesktop.SetWallpaper(StringToOleStr(FileListBox1.Filename), 0); // определились с выбором картинки
 WallpaperOptions.dwSize := SizeOf(WallpaperOptions);
 // WallpaperOptions.dwStyle := WPSTYLE_TILE; // или WPSTYLE_CENTER, или WPSTYLE_STRETCH
  OleCheck(ActiveDesktop.SetWallpaperOptions(WallpaperOptions, 0));
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL); // применяем картинку на рабочем столе
end;

[ZvEr_HaCkEr]

а в uses что добавить?

[grafgrial]

У меня стоит, а ты выбирай что нужно

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtDlgs, jpeg, ExtCtrls, FileCtrl, Buttons,
  shlobj, comobj;

[ZvEr_HaCkEr]

ругается на эту строку

WallpaperOptions.dwSize := SizeOf(WallpaperOptions);

что делать?
Спасибо большое.Вроде разобрался

WallpaperOptions:_tagWallpaperOPT;

должен быть.Или нет???

[dmitriegorovih]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ComObj, ShlObj;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function StringToPWide(sStr: string): PWideChar;
var
  pw: PWideChar;
  iSize,iNewSize: integer;
begin
  iSize := Length(sStr) + 1;
  iNewSize := iSize * 2;

  pw := AllocMem(iNewSize);

  MultiByteToWideChar(CP_ACP, 0, PChar(sStr), iSize, pw, iNewSize);

  Result := pw;
end;

  procedure ChangeActiveWallpaper(putwallpaper:pwidechar);
const
  CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  ActiveDesktop: IActiveDesktop;
begin
  ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
    as IActiveDesktop;
  ActiveDesktop.SetWallpaper(putwallpaper, 0);
  ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;
end.

[grafgrial]

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

ругается на эту строку

WallpaperOptions.dwSize := SizeOf(WallpaperOptions);

что делать?
Спасибо большое.Вроде разобрался
должен быть.Или нет???

да извини, в var напиши

WallpaperOptions: TWallPaperOpt;