msg.dpr

用delphi开发的短信息预警系统

program Msg;

uses
  windows,
  Forms,
  main in 'main.pas' {Form1},
  config in 'config.pas' {Form2},
  AddUser in 'AddUser.pas' {Form3},
  YJSET in 'YJSET.pas' {Form4};

{$R *.res}
var
  hMutex:hwnd;
  ret:integer;
begin
  hmutex:=createMutex(nil,false,'Msg');
  ret:=getlasterror;
  if ret<>error_already_exists then
  begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;
  end else
  begin
    Application.MessageBox('程序已经运行，请不要运行两次','程序不能运行',MB_OK  or MB_ICONERROR);
  end;
  releasemutex(hmutex);
end.