skad wiedziec jakie konto w win-XP jest teraz aktywne...?jak

skad wiedziec jakie konto w win-XP jest teraz aktywne...?jak pobrac nazwe?

uses Registry;
.........
procedure TForm1.Button1Click(Sender: TObject);
var Rejestr : TRegistry;
i : string;
begin
Rejestr := TRegistry.Create;
Rejestr.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer',False);
i := Rejestr.ReadString('Logon User Name');
showmessage(i);
Rejestr.Free;
end;

trzymajta się :p

zamiast

showmessage(i);

możesz użyć np.

Label1.caption := 'Aktywny użytkownik: '+i;

pozdrawiam :-)