title image


Smiley Re: Wie kann ich das aktuelle Userverzeichnis ermitteln
uses Shlobj



function EigeneDateien: string;

var

pidl: PItemIDList;

Pfad: PChar;

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 + '\';

StrDispose(Pfad);

end;

end;

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

showmessage(eigenedateien);

end;



Gruß DBR
Eine Stunde denken spart zehn Stunden programmieren!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: