Fehler: Privelgierte Anweisung beim laden eines Icons

[Andreas L.]

Hi,
wenn ich mit folgenden Code ein Icon aus einer Datei lade, bekomme ich die untenstehende Fehlermeldung. Der Debugger bleibt beim end; stehen. Wo liegt der Fehler?

Delphi-Quellcode:

function GethIcon(FileName: String; icoSize: Cardinal; icoIndex: integer = 0): Cardinal;
var DeskTopISF: IShellFolder; IExIcon: IExtractIcon; PathPidl: PItemIDList; hIconL, hIconS: HIcon;
begin
  Result := 0;
  if SHGetDesktopFolder(DeskTopISF) <> NOERROR then Exit;
  PathPidl := nil;
  if DeskTopISF.GetUIObjectOf(0, 1, PathPidl, IID_IExtractIconA, nil, IExIcon) <> NOERROR then Exit;
  if (IExIcon.Extract(PChar(FileName), icoIndex, hIconL, hIconS,
    icoSize or (16 shl 16)) = NOERROR) and (hIconL <> 0) then Result := hIconL;
  DestroyIcon(hIconS);
end;

//Aufruf:
Icon.handle := GethIcon('C:\Program Files\Mozilla Firefox\firefox.exe', 16, 0);

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Demo.exe ist eine Exception der Klasse EPrivilege mit der Meldung 'Privilegierte Anweisung' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Ciao,
Andy