1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
function UserName : String;
var
WLongueur : DWord;
pcTexte : PChar;
begin
WLongueur := 21;
GetMem( pcTexte, WLongueur );
try if Windows.GetUserName( pcTexte, WLongueur )
then Result := UpperCase( pcTexte )
finally FreeMem( pcTexte ) end;
end;
function ComputerName : String;
var
WLongueur : DWord;
pcTexte : PChar;
begin
WLongueur := Max_ComputerName_Length + 1;
GetMem( pcTexte, WLongueur );
try if Windows.GetComputerName( pcTexte, WLongueur )
then Result := UpperCase( pcTexte )
finally FreeMem( pcTexte ) end;
end; |
Partager