Código Delphi [-]uses ComObj; procedure TForm1.FormCreate(Sender: TObject); var UserList: Variant; begin UserList := CreateOleObject('Shell.Users'); Caption := UserList.currentUser.setting('DisplayName'); end;
uses ComObj; procedure TForm1.FormCreate(Sender: TObject); var UserList: Variant; begin UserList := CreateOleObject('Shell.Users'); Caption := UserList.currentUser.setting('DisplayName'); end;