获取计算机名(50分)

  • 主题发起人 主题发起人 kingdom
  • 开始时间 开始时间
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型变量就可以了
 
接受答案了.
 
唉,晚来一步
 

Similar threads

I
回复
0
查看
819
import
I
I
回复
0
查看
560
import
I
后退
顶部