Cita:
Empezado por edgusano
Pero quisiera que me dieras la mano, con eso de saber cual es el usuario activo?.
|
Coloca un botón en un form y utiliza el siguiente código:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
function CurrentUserName:String;
var
u: array[0..127] of Char;
szWord;
begin
sz:=SizeOf(u);
GetUserName(u,sz);
Result:=u;
end;
begin
ShowMessage(CurrentUsername);
end;