如何获得本机的计算机名?(50分)

F

FinalLeon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-20

• #1

如何获得本机的计算机名?

 

C

Carson_zzd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-20

• #2

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

 

R

roman_pan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-20

• #3

可以调用kernel32库里的GetComputerName函数
原型为GetComputerName(ByVal lpBuffer As String, nSize As Long) As Long

 

咕

咕咕咕

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-20

• #4

var
lpName: PAnsiChar;
lpUserName: PAnsiChar;
lpnLength: DWORD;
begin
Result:='';
lpnLength := 0;
WNetGetUser(nil, nil, lpnLength);
// 取得字串长度
if lpnLength > 0 then
begin
GetMem(lpUserName, lpnLength);
if WNetGetUser(lpName, lpUserName, lpnLength) = NO_ERROR then
Result := lpUserName;
FreeMem(lpUserName, lpnLength);
end;
label1.caption:=result;
end;

 

T

touyuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-24

• #5

用winsock中的gethostname（）很容易的呀

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-24

• #6

var
s:Array[1..127] of char;
iWord;
begin
GetComputerName(@s,i);
Edit1.text:=s;
end;

 

明

明月春秋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #7

char Buffer[25];
DWORD nSize = 25;
GetUserName(Buffer,&nSize);
return (String)Buffer;

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #8

GETHOSTNAMEBYADDR

 

T

tgdjw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #9

强烈建议此类问题不要再问，多找一下就有答案了
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2163788