Subversion Repositories alarming

Rev

Blame | Last modification | View Log | RSS feed

  1. program DoorAlarmClient;
  2.  
  3. uses
  4.   Forms,
  5.   Windows,
  6.   SysUtils,
  7.   DoorAlarmClientMain in 'DoorAlarmClientMain.pas' {Form1},
  8.   AudioVolCntrl in 'AudioVolCntrl.pas';
  9.  
  10. {$R *.res}
  11.  
  12. begin
  13.   if CreateMutex(nil, True, '3E724D41-FB53-436B-A959-7B9236E55397') = 0 then
  14.     RaiseLastOSError;
  15.   if GetLastError = ERROR_ALREADY_EXISTS then
  16.     Exit;
  17.  
  18.   Application.Initialize;
  19.   Application.ShowMainForm := False;
  20.   Application.CreateForm(TForm1, Form1);
  21.   Application.Run;
  22. end.
  23.