delphi 多线程定时执行程序如何写

转载自：https://blog.csdn.net/chinajobs/article/details/51461368

+ View Code?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs;   type   TSysChatMainForm = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }     FTestNetThread: TThread;   public     { Public declarations }   end;   var   SysChatMainForm: TSysChatMainForm;   implementation   {$R *.dfm}   type   TTestNetThread = class(TTHread)     procedure Execute; override;     procedure RefreshUIInMainThread;   end;   { TTestNetThread }   procedure TTestNetThread.RefreshUIInMainThread; begin   bsTrayIcon.ShowBalloonHint('网络异常','由于网络异常，程序掉线！',bsbitInfo); end;   procedure TTestNetThread.Execute; begin   inherited;   FreeOnTerminate := True;     while (not Terminated) and (not InternetGetConnectedState(nil, 0)) then   begin     Data.UserOff('[脱机]',false);     Synchronize(RefreshUIInMainThread);       Sleep(3000)   end; end;   { TSysChatMainForm }   procedure TSysChatMainForm.FormCreate(Sender: TObject); begin   FTestNetThread := TTestNetThread.Create(False); end;   procedure TSysChatMainForm.FormDestroy(Sender: TObject); begin   FTestNetThread.Terminate; end;   end.