unitmanage.pas

来自「2009最新 传奇汉化0599代码 传奇汉化」· PAS 代码 · 共 42 行

unit UnitManage;

interface
uses
  svn, WIndows,SDK,grobal2;
type
  TThreadInfo = record
    nRunFlag     :Integer;  //0x00
    boActived    :BOOL;  //0x04
    dwRunTick    :LongWord; //0x08
    Config       :pTM2Config;  //0x0C
    boTerminaled :BOOL;     //0x10
    hThreadHandle:THandle;  //0x14
    dwThreadID   :LongWord; //0x18   
    n1C          :Integer;  //0x1C
    n20          :Integer;  //0x20
    n24          :integer;  //0x24
  end;
  pTThreadInfo = ^TThreadInfo;
  procedure StartRegThread(Config:pTM2Config;ThreadInfo:pTThreadInfo);
  procedure RegServerThread(ThreadInfo:pTThreadInfo);stdcall;
implementation
procedure StartRegThread(Config:pTM2Config;ThreadInfo:pTThreadInfo);
begin
  ThreadInfo.Config:=Config;
  ThreadInfo.hThreadHandle:=CreateThread(nil,
                                         0,
                                         @RegServerThread,
                                         ThreadInfo,
                                         0,
                                         ThreadInfo.dwThreadID);
end;
procedure RegServerThread(ThreadInfo:pTThreadInfo);stdcall;
begin

end;

{---- Adjust global SVN revision ----}
initialization
  SVNRevision('$Id: UnitManage.pas 121 2006-08-06 01:10:41Z Dataforce $');
end.