1 respuesta en este tema

[enecumene]

Pues con esta función podemos obtener el usuario actual de Windows:

delphi

function GetCurrentUserName : string;
const
  cnMaxUserNameLen = 254;
var
  sUserName     : string;
  dwUserNameLen : DWord;
begin
  dwUserNameLen := cnMaxUserNameLen-1;
  SetLength( sUserName, cnMaxUserNameLen );
  GetUserName(
    PChar( sUserName ),
    dwUserNameLen );
  SetLength( sUserName, dwUserNameLen );
  Result := sUserName;
end;

Saludos.

[Jagluiperd]

enecumene, con tu permiso me gustaría enlazar desde aquí al hilo que he creado en el apartado Lazarus/FreePascal,
que muestra como obtener el usuario de un sistema Windows o Linux, pero empleando Lazarus.

[Ir al ejemplo]

Saludos.