SHGetFileInfo und Vista

[ringli]

Ja, direkt nach dem Aufruf von SHGetFileInfo. So sieht die Funktion im Moment bei mir aus:

Delphi-Quellcode:

function GetShellDescription(const Name:String):String;
   var FileInfo:TSHFileInfo;
       Flags:Integer; 
begin
   showmessage('#' + IntToStr(GetLastError) + ' : ' + SysErrorMessage(GetLastError));
   ZeroMemory(@FileInfo, SizeOf(FileInfo));
   Flags:=SHGFI_DISPLAYNAME;
   SHGetFileInfo(PChar(Name), 0, FileInfo, SizeOf(FileInfo), Flags);
   showmessage('#' + IntToStr(GetLastError) + ' : ' + SysErrorMessage(GetLastError));
   Result:=FileInfo.szDisplayName;
end;