获取计算机名(50分)

K

kingdom

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: Tobject);
var
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char; // holds the name
Size: Integer; // holds the size
begin
{initialize the computer name size variable}
Size := MAX_COMPUTERNAME_LENGTH+1;

{retrieve the computer name}
if GetComputerName(ComputerName, Size) then

Edit1.Text := StrPas(Computername)
else Showmessage('Computer Name Not Found');
end
报错
 
包什么错?计算机名里有汉字吗
 
;if GetComputerName(ComputerName, Size) then
行参数不匹配
 
;将size变量定义为Dword型变量就可以了
 
接受答案了.
 
唉,晚来一步
 
顶部