怎样获得本机的hostname?(20分)

Y

yager

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-16

• #1

怎样获得本机的hostname?

 

C

cxx1997

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-16

• #2

GetComputerName ;得到本机名

 

X

xyf2001721

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-16

• #3

哈哈，很多的，搜索一下以前的。何必浪费分呢

 

Y

yager

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-16

• #4

function CreateResultID(): String;
var hostname : String;
; ; len : integer;
begin
; if GetComputerName(Pchar(hostname),len)<>nil then
; begin
; ; result := HostEnt.h_name + DatetoStr(Date())+TimetoStr(Time());
; end
; else
; begin
; ; result := '-1';
; end;
end;
//以上代码编译不过去，
[Error] AddResult.pas(54): Types of actual and formal var parameters must be identical
//换用GetHostname，报执行错

 

茶

茶叶蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-16

• #5

...
var
; ; len : ^DWord;
; ; hostname : pchar;
begin
; GetMem(hostname,255);
; new(len);
; ;
; len^:= 255;
; if GetComputerName( hostname, len^ ) ;then
......

 

P

pcsunflower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #6

function GetLocalComputerName: string;
var
; Count: DWORD;
begin
; Count := MAX_COMPUTERNAME_LENGTH + 1;
; // set buffer size to MAX_COMPUTERNAME_LENGTH + 2 characters for safety
; SetLength(Result, Count);
; Win32Check(GetComputerName(PChar(Result), Count));
; SetLength(Result, StrLen(PChar(Result)));
end;

 

V

vanhalen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #7

//delphi6.0调试通过
procedure TForm1.Button1Click(Sender: TObject);
var hostname : pchar;

; ; w Word;
begin
; GetMem(hostname,255);
; w:= 255;
if ; getcomputername(hostname,w) then
;edit1.Text:=hostname;
;freemem(hostname,255);

end;

 

Y

yager

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #8

谢谢大伙。
分不多，分一下没意见吧?

 

Y

yager

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #9

多人接受答案了。