constructor TNewsThread.Create(sleepSec:Longint;outdir:string); //参数传递 begin //FLabel:=lbl; FSleepDec:=sleepSec; FOutDir:=outdir; //FreeOnTerminate:=True; //让线程终止是触发OnTerminate事件 inherited Create(False);//True//不立即执行,只有调用resume才开始 end; procedure TNewsThread.Execute; var i:Integer; newsado:TADOConnection; begin CoInitialize(nil); constring:=connString(); while (1>0) do begin newsout; form1.Label5.Caption:='本次导出结束,等待下一次导出'; Delay(FSleepDec); showmessage('data.ini文件错误'); //messagebox(0,'333','ii',MB_OK); end; //如果不调用Synchronize,会出现Canvas Does NOT Allow Drawing // Synchronize(UpdateCount); // sleep(3*60*60*1000); //end; //form1.Button3.Enabled:=true; CoUninitialize; end;