怎樣才能取得本機的機器名(50分)

Z

zhl123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #1

我用了api函數gethostname，但是不知道怎麼調用它，老出錯,請各位幫一下忙，是不是<br>需加入什麼單元，還有裡面的參數怎樣調用

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #2

var<br>&nbsp; scname:array[1..MAX_COMPUTERNAME_LENGTH] of char;<br>&nbsp; nSize: DWORD;<br>begin<br>&nbsp; result:='';<br>&nbsp; nSize:=MAX_COMPUTERNAME_LENGTH+1;<br>&nbsp; if GetComputerName(@scname,nSize) then<br>&nbsp; begin<br>&nbsp; &nbsp; result:=lowercase(trim(scname));<br>&nbsp; end;<br>end;<br>

 

X

xyz5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #3

NOD

 

P

pink_wt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #4

uses shellapi;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; pchar;<br>&nbsp; size:dword;<br>begin<br>size:=255;<br>&nbsp; getmem(p,size);<br>&nbsp; GetComputerName(p,size);<br>&nbsp; edit1.Text:=string(p);<br>&nbsp; freemem(p);<br>end;

 

X

xyz5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #5

GetComputerName(p,size);

 

Z

zhl123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #6

接受答案了.