本机的机器名(20分)

H

henry3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #1

请问：delphi中有什么函数可以得到本机的机器名吗？

 

H

hustmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #2

gethostname

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #3

GetComputerName

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #4

API函数有！

 

H

henry3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #5

Help里找不到GetComputerName??
是什么API函数呢？
在delphi里如何使用Api函数呢？

 

G

guo_qpeter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #6

it is in Delphi help->windows sdk
procedure TForm1.Button1Click(Sender: Tobject);
var
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;

Size: Integer;

begin
Size := MAX_COMPUTERNAME_LENGTH+1;
if GetComputerName(ComputerName, Size) then
Edit1.Text := StrPas(Computername)
else
Showmessage('Computer Name Not Found');
end;

 

H

henry3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #7

谢谢！
但是“Types of actual and formal var parameters must be identical”？？

 

G

guo_qpeter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #8

you can declare
size:word;
I think problem is here

 

小

小周

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #9

大家的讨论十分热烈，对于此问题guo_qpeter的回答我曾经试过，可以行得通，但不知还有其它方法吗？

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #10

你试过？行的通？
我这里为什么不行？还是出错：
Types of actual and formal var parameters must be identical
我已经改为 size: Word 了。

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #11

知道了，不是 Word，应为： aSize: cardinal;

 

H

henry3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #12

谢谢大家，成了。