sms.dpr

CMPP3移动短信平台400条/S 稳定版

{
  国通达短信收发平台

}
program SMS;

uses
  Forms,
  windows, 
  UnitMain in 'UnitMain.pas' {FrmMain},
  UnitSmsRecv in 'UnitSmsRecv.pas',
  UnitSmsSend in 'UnitSmsSend.pas',
  CMPP in 'CMPP.pas',
  UnitCode in 'UnitCode.pas';

{$R *.res}
var
  h, MutexHandle: hWnd;
begin
  Mutexhandle := windows.CreateMutex(nil, true,
    '{EFF34481-B446-45D5-B5C8-4E772DE566C9}');
  if getlasterror = windows.ERROR_ALREADY_EXISTS then
  begin
    closehandle(Mutexhandle);
    h := FindWindow('TFrmInterFace', nil);
    SetForegroundWindow(h);
    halt;
  end;  
  Application.Initialize;
  Application.Title := '国通达通信技术有限公司';
  Application.CreateForm(TFrmMain, FrmMain);
  Application.Run;
end.