[TRUCO DELPHI] Usuario de tu Ordenador.
delphi
function GetLocalUserName: String; Var aLength : DWORD; aUserName: Array[0..MAX_PATH - 1] Of Char; begin aLength := MAX_PATH; GetUserName(aUserName, aLength); Result := aUserName; end;
Saludos!
Escrito 10 diciembre 2016 - 04:27
[TRUCO DELPHI] Usuario de tu Ordenador.
function GetLocalUserName: String; Var aLength : DWORD; aUserName: Array[0..MAX_PATH - 1] Of Char; begin aLength := MAX_PATH; GetUserName(aUserName, aLength); Result := aUserName; end;
Saludos!