用户的计算机名,获取计算机名及用户名

{$ifdef WINDOWS}uses Windows;{$endif}

{$ifdef UNIX}uses BaseUnix;{$endif}

{$ifdef UNIX}

function GetUserName: String;

begin

Result:=GetEnvironmentVariable('USER');

end;

{$endif}

{$ifdef WINDOWS}

function GetUserName: String;

var pszName: PChar;

nSize : DWord;

begin

nSize:=100;

pszName:=StrAlloc(nSize);

Windows.GetUserName(pszName,nSize);

Result:=StrPas(pszName);

StrDispose(pszName);

end;

{$endif}

{$ifdef UNIX}

function GetComputerName: String;

var aUtsName: UtsName;

begin

Result:='';

aUtsName.Nodename[0]:=#0; // This is just for suppressing the compiler warning.

FillChar(aUtsName,SizeOf(aUtsName),0);

if FpUname(aUtsName)<>-1 then

begin

Result:=aUtsName.Nodename;

end;

end;

{$endif}

{$ifdef WINDOWS}

function GetComputerName: String;

var aBuf: Array[0..255] of Char;

bRet: Boolean;

nSize: DWord;

begin

aBuf[0]:=#0;

nSize:=SizeOf(aBuf);

bRet:=Windows.GetComputerName(aBuf,nSize);

aBuf[SizeOf(aBuf)-1]:=#0; // Just for safety reasons

Result:=Trim(aBuf);

end;

{$endif}