uprocess.pas

千年源代码,只缺少控件,可以做二次开发用,好不容易得来的

unit uProcess;

interface

uses
   Windows, MMSystem, Classes, SysUtils;

type
   TProcessThread = class (TThread)
   private
   protected
      procedure Execute; override;
   public
      constructor Create;
   end;

var
   ProcessThread : TProcessThread;

implementation

uses
   FMain, uConnector;

constructor TProcessThread.Create;
begin
   FreeOnTerminate := True;
   inherited Create (true);
end;

procedure TProcessThread.Execute;
var
   StartTick, CurTick : Integer;
   ElaspedSec : Integer;
begin
   ElaspedSec := 0;
   StartTick := timeGetTime;
   
   while not Terminated do begin
      try
         CurTick := timeGetTime;
         
         ConnectorList.Update (CurTick);

         if CurTick >= StartTick + 1000 then begin
            ElaspedSec := ElaspedSec + 1;
            frmMain.lblElaspedTime.Caption := IntToStr (ElaspedSec);
            StartTick := CurTick;
         end;
         Sleep (10);
      except
         break;
      end;
   end;
end;

end.