workthread.pas

千年外挂通用

unit WorkThread;

interface

uses
  Classes,Windows,SysUtils,Dialogs;
  
type
  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;

  public
    constructor Create(CreateSuspended: Boolean);
  end;

var
  WThread:TMyThread;
  
implementation
{ TMyThread }

constructor TMyThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  Priority := tpIdle;
end;

procedure TMyThread.Execute;
//var
//i,j:integer;
begin
  //ShowMessage('ThreadStart');
 // OutputDebugString('ThreadStart');
  { Place thread code here }
  {i:=1;
  j:=1;
  while i=1 do
    begin
    Sleep(500);
    OutputDebugString('ThreadWork');
    inc(j);
    OutputDebugString(PChar(IntToStr(j)));
    end;   }
end;

end.