1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| program PCKExplorer;
uses
Forms,
sysutils,
UFrm_Main in 'form\UFrm_Main.pas' {Frm_Main},
UZPck in 'classes\UZPck.pas',
{$R *.res}
begin
try
if ParamCount > 0 then
if ParamStr(1) = '-c' then
raise Exception.Create('Exception imprévue');
except
Writeln('Fin de programme due à une exception'); //<-- rien ne s'affiche
ExitCode := 1;
end;
Application.Initialize;
Application.Title := 'PCK Explorer';
Application.CreateForm(TFrm_Main, Frm_Main);
if ParamCount > 0 then
if fileexists(ParamStr(1)) then
Frm_Main.OpenPck(ParamStr(1));
Application.Run;
end. |
Partager