sendmsg.dpr

用串口发送手机短信 需要GSM Mode设备

program sendMsg;

uses
  Forms,
  Windows,
  uFrmMain in 'uFrmMain.pas' {frmMain},
  uU1 in 'uU1.pas',
  uPU in 'uPU.pas',
  uComMsg in 'uComMsg.pas',
  uFrmTest in 'uFrmTest.pas' {frmTest},
  uCom in 'uCom.pas';

{$R *.res}

Var
  hMutex:Hwnd;
  Ret:Integer;
begin
  Application.Initialize;

  Application.HelpFile := '短信外接平台';
  Application.Title := '短信外接平台';

  hMutex := CreateMutex(nil,False,'短信外接平台');
  Ret := GetLastError;
  if Ret=Error_Already_Exists then begin
    //MessageBox(0,'短信外接平台','程序已运行',MB_OK);

    ReleaseMutex(hMutex);
    halt;
  end;

  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmTest, frmTest);
  Application.Run;
end.