用 delphi 怎样得到 计算机名(5分)

X

xusiqi8868

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #1

用 delphi 中 怎样得到 计算机名

 

0

0.5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #2

用serversocket控件,ServerSocket1.Socket.LocalHost

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #3

function ComputerName : String;
var
CNameBuffer : PChar;
fl_loaded : Boolean;
CLen : ^DWord;
begin
GetMem(CNameBuffer,255);
New(CLen);
CLen^:= 255;
fl_loaded := GetComputerName(CNameBuffer,CLen^);
if fl_loaded then
ComputerName := StrPas(CNameBuffer)
else
ComputerName := 'Unkown';
FreeMem(CNameBuffer,255);
Dispose(CLen);
end;

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #4

function myGetComputerName : String;
//取得计算机名
var
pcComputer : PChar;
dwCSize : DWORD;
begin
dwCSize := MAX_COMPUTERNAME_LENGTH + 1;

result:='';
GetMem( pcComputer, dwCSize );
try
if Windows.GetComputerName( pcComputer, dwCSize ) then
Result := pcComputer;
finally
FreeMem( pcComputer );
end;
end;

 

A

access_xie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #5

UP

 

H

hxy2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #6

function Computername :string;
var tempchar;
sizeWord;
begin
getmem(temp,255);
size:=255;
if GetComputerName(temp,size)=false then
begin
freemem(temp);
exit;
end;
computername:=temp;
freemem(temp);
end;

 

X

xusiqi8868

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #7

多人接受答案了。