Saber usuario

[emeritos]

Hola dilferos.

Necesito saber si existe alguna funcion o como hacerlo, para saber el usuario de windows 7 o 10 que este ejecutando la aplicacion. (Delphi 7)

Gracias

[Casimiro Notevi]

Mira los enlaces de abajo.

[ecfisa]

Hola.

También usando la función GetUserName, mas datos: Using GetUserName for multiple Windows versions and 32/64

Saludos

[Reasen]

Esta es mi manera favorita

Código Delphi [-]
function GetPCUser(): string;
var
  User: array[0..255] of Char;
  SizeOfUser: Cardinal;
begin
  FillChar(user, SizeOf(user), #0);
  SizeOfUser := SizeOf(User);
  if GetUserName(User, SizeOfUser) = True then
    Result := string(User)
  else
    Result := 'Unknown';
end;