type TPingThread = class(TThread)
private
FPingIP: string;
FMemo: TMemo;
protected
procedure Execute; override;
procedure UpLoad();
procedure ShowStatus(); public
//ping func or proc
function IcmpCreateFile():THandle; stdcall external 'ICMP.dll';编译器提示:
';' expected but identifier 'external' found
private
FPingIP: string;
FMemo: TMemo;
protected
procedure Execute; override;
procedure UpLoad();
procedure ShowStatus(); public
//ping func or proc
function IcmpCreateFile():THandle; stdcall external 'ICMP.dll';编译器提示:
';' expected but identifier 'external' found
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货