procedure TForm7.Button3Click(Sender: TObject);
var
hthread:thandle;
threadid:Dword;
begin
hthread:=createthread(nil,0,@rasdial,nil,0,threadid);
end;
function rasdial(p:pointer):Longint;stdcall;
begin
form7.download();
exitthread(uint fuexitcode);
end;
其中exitthread(uint fuexitcode);出错,其参数怎样定义和使用啊?
dwo
var
hthread:thandle;
threadid:Dword;
begin
hthread:=createthread(nil,0,@rasdial,nil,0,threadid);
end;
function rasdial(p:pointer):Longint;stdcall;
begin
form7.download();
exitthread(uint fuexitcode);
end;
其中exitthread(uint fuexitcode);出错,其参数怎样定义和使用啊?
dwo
象你种处理情况,我建议还是直接从 Tthread 中 继承,生成个新线程处理函数比较简单!
api createthread 一般适应与那种对反应,效率,实时性要求特别高的地方!