Rev 1 | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 1 | Rev 3 | ||
|---|---|---|---|
| 1 | program Extractor; |
1 | program Extractor; |
| 2 | 2 | ||
| 3 | { |
3 | { |
| 4 | Warning: Extractor must be small, otherwise WinRAR |
4 | Warning: Extractor must be small, otherwise WinRAR |
| 5 | will not recognize the ZIP which is appended to this file. |
5 | will not recognize the ZIP which is appended to this file. |
| 6 | So we MUST use UPX in PostBuild! |
6 | So we MUST use UPX in PostBuild! |
| 7 | } |
7 | } |
| 8 | 8 | ||
| 9 | uses |
9 | uses |
| 10 | Forms, |
10 | Forms, |
| 11 | ExtractorMain in 'ExtractorMain.pas' {MainForm}, |
11 | ExtractorMain in 'ExtractorMain.pas' {MainForm}, |
| 12 | ExtractorPassword in 'ExtractorPassword.pas' {PasswordDlg}, |
12 | ExtractorPassword in 'ExtractorPassword.pas' {PasswordDlg}, |
| 13 | ExtractorError in 'ExtractorError.pas' {ErrorForm}, |
13 | ExtractorError in 'ExtractorError.pas' {ErrorForm}, |
| 14 | ExtractorComment in 'ExtractorComment.pas' {CommentForm}, |
14 | ExtractorComment in 'ExtractorComment.pas' {CommentForm}, |
| 15 | Functions in 'Functions.pas', |
15 | Functions in 'Functions.pas', |
| 16 | SFXAutoRun in 'SFXAutoRun.pas', |
16 | SFXAutoRun in 'SFXAutoRun.pas', |
| 17 | SFXBehavior in 'SFXBehavior.pas'; |
17 | SFXBehavior in 'SFXBehavior.pas', |
| - | 18 | BrowseFolder in 'BrowseFolder.pas'; |
|
| 18 | 19 | ||
| 19 | {$R *.res} |
20 | {$R *.res} |
| 20 | 21 | ||
| 21 | begin |
22 | begin |
| 22 | Application.Initialize; |
23 | Application.Initialize; |
| 23 | Application.Title := 'ViaThinkSoft AutoSFX Extractor'; |
24 | Application.Title := 'ViaThinkSoft AutoSFX Extractor'; |
| 24 | Application.CreateForm(TMainForm, MainForm); |
25 | Application.CreateForm(TMainForm, MainForm); |
| 25 | Application.CreateForm(TPasswordDlg, PasswordDlg); |
26 | Application.CreateForm(TPasswordDlg, PasswordDlg); |
| 26 | Application.CreateForm(TErrorForm, ErrorForm); |
27 | Application.CreateForm(TErrorForm, ErrorForm); |
| 27 | Application.CreateForm(TCommentForm, CommentForm); |
28 | Application.CreateForm(TCommentForm, CommentForm); |
| 28 | Application.Run; |
29 | Application.Run; |
| 29 | end. |
30 | end. |
| 30 | 31 | ||