1 |
|
program OniUnPacker; |
2 |
|
|
3 |
|
uses |
4 |
< |
Forms, Windows, |
4 |
> |
Forms, |
5 |
|
Main in 'Main.pas' {Form_Main}, |
6 |
|
Data in 'Data.pas', |
7 |
|
Helper_LevelDB in 'Helper_LevelDB.pas' {Form_LevelDB}, |
8 |
|
Helper_ValueEdit in 'Helper_ValueEdit.pas' {Form_ValueEdit}, |
9 |
|
Settings in 'Settings.pas' {Form_Settings}, |
10 |
– |
FTypeReg in 'FTypeReg.pas', |
10 |
|
Functions in 'Code\Functions.pas', |
11 |
|
Exporters in 'Code\Exporters.pas', |
12 |
|
OniImgClass in 'Code\OniImgClass.pas', |
18 |
|
Extractor in 'Tools\Extractor.pas' {Form_ToolTemplate3}, |
19 |
|
RawEdit in 'Tools\RawEdit.pas' {Form_ToolTemplate4}, |
20 |
|
TxmpReplace in 'Tools\TxmpReplace.pas' {Form_ToolTemplate5}, |
21 |
< |
FolderBrowser in 'Code\FolderBrowser.pas'; |
21 |
> |
FTypeReg in 'ImportedStuff\FTypeReg.pas', |
22 |
> |
FolderBrowser in 'ImportedStuff\FolderBrowser.pas', |
23 |
> |
OneInst in 'ImportedStuff\OneInst.pas'; |
24 |
|
|
25 |
|
{$R *.res} |
26 |
|
{$R ExtraIcos.res} |
26 |
– |
const |
27 |
– |
MutexName = 'Oni Un/Packer'; |
28 |
– |
var |
29 |
– |
hMutex: THandle; |
27 |
|
|
28 |
|
begin |
29 |
< |
hMutex := CreateMutex(nil, True, MutexName); |
30 |
< |
if (hMutex = 0) or (GetLastError = ERROR_ALREADY_EXISTS) then |
31 |
< |
begin |
32 |
< |
PostMessage(HWND_BROADCAST, 0, 0, 0); |
33 |
< |
end |
34 |
< |
else |
35 |
< |
begin |
36 |
< |
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. |
29 |
> |
Application.Initialize; |
30 |
> |
Application.Title := 'Oni Un/Packer'; |
31 |
> |
Application.CreateForm(TForm_Main, Form_Main); |
32 |
> |
Application.CreateForm(TForm_LevelDB, Form_LevelDB); |
33 |
> |
Application.CreateForm(TForm_ValueEdit, Form_ValueEdit); |
34 |
> |
Application.CreateForm(TForm_Settings, Form_Settings); |
35 |
> |
Application.Run; |
36 |
> |
end. |