1.如何禁止Alt+F4组合键
2。我使用函数function GetComputerName(IP:string):string;
var
HostEnt:PHostEnt;
WSAData:TWSAData;
Addr:DWORD;
begin
WSAStartup($101,WSAData);
//Addr:=inet_addr(PCHAR(IP));
//HostEnt:=gethostbyaddr(@Addr,sizeof(Addr),PF_INET);
//Result:=HostEnt.h_name;
Addr:=inet_addr(PChar(IP));
HostEnt:=gethostbyaddr(@Addr,sizeof(Addr),PF_INET);
Result:=HostEnt.h_name;
WSACleanup();
end;
然后我在窗体中引用Edit2.Text:=GetComputerName(pchar(Edit1.Text));
系统提示出错,
3。我想在ping局域网中一台主机1后,检测出机器名,然后能不能在主机1上新建一个进程用来运行一个本机的程序并安装在主机1上,怎么实现
万谢
顶一个先