Cita:
Empezado por cHackAll
Este es un intento fallido!
|
Sólo cambia los paréntesis por corchetes:
Código Delphi
[-]
uses ComObj;
procedure TForm1.FormCreate(Sender: TObject);
var UserList: Variant;
begin
UserList := CreateOleObject('Shell.Users');
Caption := UserList.currentUser.setting['DisplayName'];
end;
// Saludos