title image


Smiley Speicher freigeben nicht vergessen
Hy DBR!



Der Speicher für die ItemIDList muss nach Gebrauch freigegeben werden! Des weiteren wird der Speicher für Pfad, falls SHGetPathFromIDList fehlschlägt, auch nicht freigegeben!



Function EigeneDateien: string;

var pidl: PItemIDList; Pfad: PChar; MAlloc:IMalloc;

begin

result := '';

if SHGetSpecialFolderLocation(0, CSIDL_PERSONAL, pidl) = NOERROR then begin

Pfad := StrAlloc(max_path);

if SHGetPathFromIDList(pidl, Pfad) then begin

result := Pfad;

if ansilastchar(result) '\' then

result := result + '\';

End;

If SHGetMalloc(MAlloc)=NOERROR Then

MAlloc.Free(pidl);

StrDispose(Pfad);

End;

End;





Schönes WE



OLLI

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: