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;
Leave a Reply
You must be logged in to post a comment.
Recent Comments