怎么得到本机的名称(50分)

W

wuliao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #1

哪个函数或方法能返回计算机的名称

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #2

getcomputername

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #3

用WinApi:getcomputername(cpname,namesize)有时不能取得计算机名
procedure gn;
var
cpnamechar;
namesize:cardinl;
begin
new(cpname);
getcomputername(cpname,namesize);
showmessage(strpas(cpname));
end;

 

C

china_peng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #4

function TMainFrm.GetLocalComputer: string;
var
ComputerName: Pchar;
Size: DWord;
begin
GetMem(ComputerName, 255);
Size := 255;
if GetComputerName(ComputerName, Size) then
begin
Result := ComputerName;
FreeMem(ComputerName);
Exit;
end;
FreeMem(ComputerName);
end;

 

W

wuliao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #5

谢谢！