ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/OniUnPacker.dpr
(Generate patch)

Comparing oup/current/OniUnPacker.dpr (file contents):
Revision 74 by alloc, Thu Jan 11 22:45:20 2007 UTC vs.
Revision 88 by alloc, Mon Jan 15 17:12:51 2007 UTC

# Line 1 | Line 1
1   program OniUnPacker;
2  
3   uses
4 <  Forms,
4 >  Forms, Windows,
5    Main in 'Main.pas' {Form_Main},
6    Data in 'Data.pas',
7    Helper_LevelDB in 'Helper_LevelDB.pas' {Form_LevelDB},
# Line 23 | Line 23 | uses
23  
24   {$R *.res}
25   {$R ExtraIcos.res}
26 + const
27 +  MutexName = 'Oni Un/Packer';
28 + var
29 +  hMutex: THandle;
30  
31   begin
32 <  Application.Initialize;
33 <  Application.Title := 'Oni Un/Packer';
34 <  Application.CreateForm(TForm_Main, Form_Main);
35 <  Application.CreateForm(TForm_LevelDB, Form_LevelDB);
36 <  Application.CreateForm(TForm_ValueEdit, Form_ValueEdit);
37 <  Application.CreateForm(TForm_Settings, Form_Settings);
38 <  Application.Run;
32 >  hMutex := CreateMutex(nil, True, MutexName);
33 >  if (hMutex = 0) or (GetLastError = ERROR_ALREADY_EXISTS) then
34 >  begin
35 >    PostMessage(HWND_BROADCAST, 0, 0, 0);
36 >  end
37 >  else
38 >  begin
39 >    Application.Initialize;
40 >    Application.Title := 'Oni Un/Packer';
41 >    Application.CreateForm(TForm_Main, Form_Main);
42 >    Application.CreateForm(TForm_LevelDB, Form_LevelDB);
43 >    Application.CreateForm(TForm_ValueEdit, Form_ValueEdit);
44 >    Application.CreateForm(TForm_Settings, Form_Settings);
45 >    Application.Run;
46 >  end;
47 >  CloseHandle(hMutex);
48   end.

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)