Exception EOleSysError: CoInitialize wurde nicht aufgerufen.

**The-X**

^^ die kommt z.B. wenn ich den Desktop Hintergrund ändern will (incl. Active Desktop)

Delphi-Quellcode:

			procedure ChangeWallpaper(aFile: String);

 const CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';

var

  hObj: IUnknown;

  ADesktop: IActiveDesktop;

  wstr: PWideChar;

begin

  hObj     := CreateComObject(CLSID_ActiveDesktop); // hier gibt's die Exception

  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;

  SystemParametersInfo(SPI_SETDESKWALLPAPER,0,pointer(aFile),

    SPIF_SENDWININICHANGE);

end;

Stelle im Source markiert ... // hier

Die erscheint aber nur, weil ich keine Formulare benutze? , da ich das ganze direkt in die dpr packe um das prog klein zu halten (75K).... da gleiche problem hatte ich bei einer eigenen CPL (Systemsteuerung) und da hatte ich Formulare (ohne wäre auch ziemlich sinnlos *gg*)
allerdings bei der TShellLink-Komponente...

Hat zufällig jemand eine Lösung für mich? ich find das ganze nämlich ziemlich "bescheiden"

Exception EOleSysError: CoInitialize wurde nicht aufgerufen.

Exception EOleSysError: CoInitialize wurde nicht aufgerufen.

Forumregeln