Saber usuario
 

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

Mira los enlaces de abajo.

Hola.

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

Saludos :)

Esta es mi manera favorita :D

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;