Changeset 92 for oup/current/OniUnPacker.dpr

Timestamp:

Jan 16, 2007, 12:35:04 AM (18 years ago)

Author:

alloc

Message:

Rev86 was first after multi-cons

File:

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

oup/current/OniUnPacker.dpr

@@ -2 +2 @@
 
 uses
-  Forms, Windows,
+  Forms,
   Main in 'Main.pas' {Form_Main},
   Data in 'Data.pas',
@@ -8 +8 @@
   Helper_ValueEdit in 'Helper_ValueEdit.pas' {Form_ValueEdit},
   Settings in 'Settings.pas' {Form_Settings},
-  FTypeReg in 'FTypeReg.pas',
   Functions in 'Code\Functions.pas',
   Exporters in 'Code\Exporters.pas',
@@ -20 +19 @@
   RawEdit in 'Tools\RawEdit.pas' {Form_ToolTemplate4},
   TxmpReplace in 'Tools\TxmpReplace.pas' {Form_ToolTemplate5},
-  FolderBrowser in 'Code\FolderBrowser.pas';
+  FTypeReg in 'ImportedStuff\FTypeReg.pas',
+  FolderBrowser in 'ImportedStuff\FolderBrowser.pas',
+  OneInst in 'ImportedStuff\OneInst.pas';
 
 {$R *.res}
 {$R ExtraIcos.res}
-const
-  MutexName = 'Oni Un/Packer';
-var
-  hMutex: THandle;
 
 begin
-  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);
+  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.