Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#9

Re: SHGetFolderLocation

  Alt 25. Jun 2009, 02:04
Jupp, so geht es:

Delphi-Quellcode:
function PathFromIDList(Pidl: PItemIdList): WideString;
const
  NTFS_MAX_PATH = 32767;
var
  Path: PWideChar;
begin
  GetMem(Path, (NTFS_MAX_PATH + 1) * 2);
  try
    if not SHGetPathFromIDListW(Pidl, Path) then
    begin
      FreeMem(Path);
      raise Exception.Create(rsE_GetPathFromIDList);
    end;
    Result := WideString(Path);
  finally
    FreeMem(Path);
  end;
end;
Ich habe noch den Ressourcenschutzblock ergänzt.

Zitat:
Zeiger auf einen Zeiger der auf eine Variable zeigt
Gehts noch?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat