U Form
uses odeljku dodaj
Registry
implementiraj funkciju:
Code:
function RetrieveHomePath: string;
var
Registry: TRegistry;
begin
Registry := TRegistry.Create(KEY_READ);
try
Registry.RootKey:= HKEY_CURRENT_USER;
Registry.OpenKey('Volatile Environment', False);
Result := Registry.ReadString('HOMEDRIVE') + Registry.ReadString('HOMEPATH');
finally
Registry.Free;
end;
end;
i to je to...
dalje samo setuj koja variabla ce da primi vrednost home dir-a...
Sto se tice samog user name-a, ono je sadrzano u rezultatu, pa mozes samo malo iseci taj string.
a moze i za njega funkcija:
Code:
function RetrieveUserName: string;
var
Registry: TRegistry;
begin
Registry := TRegistry.Create(KEY_READ);
try
Registry.RootKey:= HKEY_CURRENT_USER;
Registry.OpenKey('Software\Microsoft\MS Setup (ACME)\User Info', False);
Result := Registry.ReadString('DefName');
finally
Registry.Free;
end;
end;
Mozda postoji i neka built-in Delphi fuknkcija koja ti ovo moze reci i bez pristupa registry-u, ali ja ne znam...
Pozdrav!
Potpis
And don't be mad at me for crying for humanity,
call it pretensions but I got good intentions,
to keep my sanity, I'm hoping, fuck, there's gotta be
an answer to their strategies and their evil inventions... ~Looptroop