function UserName():string; const cnMaxUserNameLen = 254; var UserName : string; nSize : DWord; begin nSize := cnMaxUserNameLen - 1; SetLength(UserName, cnMaxUserNameLen); GetUserName(Pchar(UserName), nSize); SetLength(UserName, nSize -1); result := UserName; end; function CurrentUserName:String; var u: array[0..127] of Char; sz:DWord; begin sz:=SizeOf(u); GetUserName(u,sz); Result:=u; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionfunction TFAccueil.ComputerName: string; var lpBuffer: array[0..MAX_COMPUTERNAME_LENGTH] of char; nSize: dword; begin nSize := Length(lpBuffer); if GetComputerName(lpBuffer, nSize) then result := lpBuffer else result := ''; end;