获取计算机名称和 Windows 用户名称

两个技巧：

(1)确定运行你的程序的机器在网络上的名称；
(2)获取当前使用机器的用户的名称。

function GetComputerNetName: string;
var
buffer: array[0..255] of char;
size: dword;
begin
size := 256;
if GetComputerName(buffer, size) then
Result := buffer
else
Result := ''
end;

Function GetUserFromWindows: string;
Var
UserName : string;
UserNameLen : Dword;
Begin
UserNameLen := 255;
SetLength(userName, UserNameLen) ;
If GetUserName(PChar(UserName), UserNameLen) Then
Result := Copy(UserName,1,UserNameLen - 1)
Else
Result := 'Unknown';
End;

原文名称：Get Computer Name, Get Windows User Name
原文地址：http://delphi.about.com/cs/adptips2002/a/bltip0102_3.htm