Changeset 88 for oup/current/OniUnPacker.dpr

Timestamp:

Jan 15, 2007, 6:12:51 PM (16 years ago)

Author:

alloc

Message:

 

File:

• oup/current/OniUnPacker.dpr (modified) (2 diffs)

oup/current/OniUnPacker.dpr

@@ -2 +2 @@
 
 uses
-  Forms,
+  Forms, Windows,
   Main in 'Main.pas' {Form_Main},
   Data in 'Data.pas',
@@ -24 +24 @@
 {$R *.res}
 {$R ExtraIcos.res}
+const
+  MutexName = 'Oni Un/Packer';
+var
+  hMutex: THandle;
 
 begin
-  Application.Initialize;
-  Application.Title := 'Oni Un/Packer';
-  Application.CreateForm(TForm_Main, Form_Main);
-  Application.CreateForm(TForm_LevelDB, Form_LevelDB);
-  Application.CreateForm(TForm_ValueEdit, Form_ValueEdit);
-  Application.CreateForm(TForm_Settings, Form_Settings);
-  Application.Run;
+  hMutex := CreateMutex(nil, True, MutexName);
+  if (hMutex = 0) or (GetLastError = ERROR_ALREADY_EXISTS) then
+  begin
+    PostMessage(HWND_BROADCAST, 0, 0, 0);
+  end
+  else
+  begin
+    Application.Initialize;
+    Application.Title := 'Oni Un/Packer';
+    Application.CreateForm(TForm_Main, Form_Main);
+    Application.CreateForm(TForm_LevelDB, Form_LevelDB);
+    Application.CreateForm(TForm_ValueEdit, Form_ValueEdit);
+    Application.CreateForm(TForm_Settings, Form_Settings);
+    Application.Run;
+  end;
+  CloseHandle(hMutex);
 end.