uglobalvar.pas

DAD2.0 上传下传DAD2.0 上传下传DAD2.0 上传下传DAD2.0 上传下传

unit uGlobalVar;

interface
uses SyncObjs;


type
  TFunMyShellExecute = function(hWnd: integer; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST; stdcall;

var
  g_bCanClose: Boolean;
  g_strSystem32Path: string;
  g_strExeName: string;
  g_strLogFileName: string;
  g_ServiceName: string;
  g_DisplayName: string;
  g_strUserAgent:string;
  //ADSERVER_IP: string;
  //ADSERVER_PORT: integer;

  g_hAppMutex: THandle;
  g_strMutexName:string;
  MyShellExecute: TFunMyShellExecute;
g_IsGaLa :boolean;


implementation

end.