Hintergrundbild ändern?

[Pixi]

wie kann ich das desktophintergrunndbild ändern? (mit *.jpg, *.bmp usw)
in delphi 8 werden irgendwie die befehle nicht mehr erkannt die ich in V7 benutze, oda bin ich zu blöd die richtigen units mit einzubinden?

irgendjemand muss das doch wissen!

[Jailbird]

Was für Befehle hast du denn bei D7 benutzt? Zeig mal Code, bitte :)

[Pixi]

uses
  ShlObj, ComObj;


function ChangeWallpaper(aFile: String): Boolean;
const
  CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  hObj: IUnknown;
  ADesktop: IActiveDesktop;
  wstr: PWideChar;
begin
  hObj     := CreateComObject(CLSID_ActiveDesktop);
  ADesktop := hObj as IActiveDesktop;
  wstr := AllocMem(MAX_PATH);
  try
    StringToWideChar(aFile, wstr, MAX_PATH);
    ADesktop.SetWallpaper(wstr, 0);
    ADesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
  finally
    FreeMem(wstr);
  end;
end;

Fehlermeldung hat er bei der deklaration von hObj, da er IUnknown nicht kennt und StringToWideChar kennt er auch nicht mehr