grobal2.pas

飘飘的传奇服务端院代码 能编译的 要控件 老大就让我传上去吧

unit Grobal2;

interface
uses
  Windows;
const
  DEFBLOCKSIZE = 16;
  BUFFERSIZE = 10000;
  GS_QUIT = 2000;
  SG_FORMHANDLE=1000;//服务器HANLD
  SG_STARTNOW=1001;  //正在启动服务器...
  SG_STARTOK=1002;   //启动完成...
type
  TDefaultMessage = record
    Recog: Integer;
    Ident: word;
    Param: word;
    Tag: word;
    Series: word;
  end;
  
implementation

end.