ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/_old_/OniUnPacker.dpr

Comparing oup/current/OniUnPacker.dpr (file contents):
Revision 88 by alloc, Mon Jan 15 17:12:51 2007 UTC vs.
Revision 92 by alloc, Mon Jan 15 23:35:04 2007 UTC

#	Line 1 | Line 1
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',
#	Line 19 | Line 18 | uses
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.

Diff Legend

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