Changeset 88

Timestamp:

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

Author:

alloc

Message:

 

Location:

oup/current

Files:

• ImportedStuff (added)
• ImportedStuff/OneInst.pas (added)
• OniUnPacker.bdsproj (modified) (1 diff)
• OniUnPacker.dpr (modified) (2 diffs)
• exe/OniUnPacker.exe (modified) ( previous)

oup/current/OniUnPacker.bdsproj

@@ -176 +176 @@
                         <Language Name="ProjectLang">$00000000</Language>
                         <Language Name="RootDir"></Language>
-                </Language>  <Excluded_Packages>
+                </Language>  
+    
+    
+    
+    <Excluded_Packages>
       <Excluded_Packages Name="d:\programme\borland\bds\3.0\Bin\dbwebxprt.bpl">Borland Web Wizard Package</Excluded_Packages>
     </Excluded_Packages>

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.