skad wiedziec jakie konto w win-XP jest teraz aktywne...?jak pobrac nazwe?
0
0
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 :-)
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.