Kako saznati naziv trenutno logovanog usera & putanju do njegovog dir-a

[ reiser @ 18.01.2005. 22:17 ] @

Kako saznati naziv trenutno logovanog usera i putanju do documents and settings dir-a ?
Recimo, ako sam ja ulogovan kao administrator, meni treba da iz programa saznam putanju do docs & settings dir-a (recimo, C:\Documents and Settings\) & ime usera, tj. Administrator

[ Divjak @ 18.01.2005. 23:02 ] @

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!