Urgente please
Gente, necesitaría saber como obtener el usuario que esta loggeado en NT mediante código delphi. Esto lo necesito para crear un módulo de auditoría en un sistema particular.
Desde ya muchas gracias por su colaboración.
Desde ya muchas gracias por su colaboración.
1 respuesta
Respuesta de felixthecat
1
Intenta lo siguiente:
procedure TForm1.Button1Click(Sender: TObject);
var user:pchar;
size:dword;
begin
size:=50;
getmem(user,size);
try
if windows.getusername(user,size) then
label1.caption:=user;
finally
freemem(user);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var user:pchar;
size:dword;
begin
size:=50;
getmem(user,size);
try
if windows.getusername(user,size) then
label1.caption:=user;
finally
freemem(user);
end;
end;
