spclient.dpr

来自「客户端服务程序」· DPR 代码 · 共 32 行

program spClient;

uses
  Forms,
  sysutils,
  windows,
  main in 'main.pas' {Form1},
  regForm in 'regForm.pas' {Form2};

{$R *.res}

var
    mutex     : THandle;
    mutexName : array [0..7] of char;
begin
  Application.Initialize;
  try
    strpcopy(mutexname,'SMSEXPRESS');
    mutex:=openmutex(MUTEX_ALL_ACCESS, False, mutexName );
    if mutex=0 then    //程序未启动，继续运行
    begin
        mutex :=createmutex(nil ,true, mutexName);
        Application.CreateForm(TForm1, Form1);
  Application.Run;
        releasemutex(mutex);
    end;
  finally
  end;
end.