unitmanage.pas

传世源码可编译的,功能齐全.是学习的好模版,会DELPHI的朋友们也可以自己修改,弄个自己的引擎.

unit UnitManage;

interface

uses
  windows,SDK,M2Share;

  procedure StartRegThread(Config:pTConfig;ThreadInfo:pTThreadInfo);
  procedure RegServerThread(ThreadInfo:pTThreadInfo);stdcall;

implementation

procedure StartRegThread(Config:pTConfig;ThreadInfo:pTThreadInfo);
begin
  ThreadInfo.Config:=Config;
  ThreadInfo.hThreadHandle:=CreateThread(nil,
                                         0,
                                         @RegServerThread,
                                         ThreadInfo,
                                         0,
                                         ThreadInfo.dwThreadID);
end;

procedure RegServerThread(ThreadInfo:pTThreadInfo);stdcall;
begin

end;

end.