spiegel-keyman/common/windows/delphi/tools/sentrytool/sentrytool.dpr
2022-06-10 11:35:34 +10:00

25 lines
617 B
ObjectPascal

program sentrytool;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Keyman.System.SentryTool.SentryToolMain in 'Keyman.System.SentryTool.SentryToolMain.pas',
Keyman.System.MapToSym in 'Keyman.System.MapToSym.pas',
Keyman.System.AddPdbToPe in 'Keyman.System.AddPdbToPe.pas',
Keyman.System.SentryTool.DelphiSearchFile in 'Keyman.System.SentryTool.DelphiSearchFile.pas',
Keyman.System.JclMapScanner in 'Keyman.System.JclMapScanner.pas';
begin
try
ExitCode := main;
except
on E: Exception do
begin
Writeln(E.ClassName, ': ', E.Message);
ExitCode := 1;
end;
end;
end.