workthread.pas

来自「网络游戏神迹脱机外挂PASCAL源码」· PAS 代码 · 共 46 行

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.