cngpsmgwsim.dpr

来自「支持CMPP/SGIP/SMGP/CNGP/SMPP协议的多功能网关模拟器:概述」· DPR 代码 · 共 29 行

program CngpSmgwSim;

uses
    Windows,
    Forms,
    TestMain in 'Forms\TestMain.pas' {MainForm},
    SMGWSimThread in 'Threads\SMGWSimThread.pas',
    General in 'Common\General.pas',
    MD5Implementation in 'Common\Crypto\MD5Implementation.pas',
    CNGPConsts in 'CngpCommon\CNGPConsts.pas',
    CNGPStructs in 'CngpCommon\CNGPStructs.pas';

{$R *.res}

var
    mtx: THandle;
begin
    mtx := CreateMutex(nil, True, 'CNGP SMGW Simulator mutex');
    if GetLastError <> 0 then begin
        ReleaseMutex(mtx);
        Exit;
    end;
    Application.Initialize;
    Application.CreateForm(TMainForm, MainForm);
    Application.Run;
    ReleaseMutex(mtx);
end.