线程

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;vari:Integer;newsado:TADOConnection;beginCoInitialize(nil);constring:=connString(); while (1>0) do beginnewsout;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;