computer For Win95, you can find it in the registry - but this is not portable to NT. A safer way (and one which is portable to NT) would be to use the Win32 calls GetComputerName and GetUserName, both of which are defined in the Windows unit. Each of these functions takes a buffer as its first parameter and the length of the buffer as its second.
The function definitions are shown below:

function GetComputerName(lpBuffer:PChar;
var nSize:DWORD): BOOL; stdcall;
function GetUserName(lpBuffer :PChar;
var nSize: DWORD): BOOL; stdcall;
Use them like this:

function GetWindowsUserName : string;
const
cnMaxLen = 254;
var
sUserName : string;
dwUserNameLen : DWord;
begin
dwUserNameLen:=cnMaxLen-1;
SetLength(sUserName,cnMaxLen);
GetUserName(Pchar(sUserName),dwUserNameLen);
SetLength(sUserName,dwUserNameLen);
result:=sUserName;
if dwUserNameLen=cnMaxLen-1 then result:='';
end;

8 Responses so far.

Post a Comment

Thank you for your comment.

Any request and idea are welcome.

CLICK TO REGISTER