Jun 04
function GetLocalUserName : string;
var
Buffer : array[0..255] of char;
Count : DWord;
begin
Count := 256 + 1;
GetUserName(Buffer, Count);
Result := string(Buffer);
end;
var
Buffer : array[0..255] of char;
Count : DWord;
begin
Count := 256 + 1;
GetUserName(Buffer, Count);
Result := string(Buffer);
end;
Recent Comments