viewer.dpr

suite component ace report

program Viewer;

uses
  Forms,
  sysutils,
  AceView in 'ACEVIEW.PAS' {AceViewer};

{$R *.RES}
var 
  FileName:String;
  i:Integer;
begin
  Application.Initialize;
  Application.CreateForm(TAceViewer, AceViewer);
  
  if ParamCount > 0 then
  begin
  
    FileName := ParamStr(1);
    {handle long filenames with embedded spaces}
    for i:=2 to ParamCount do FileName := FileName + ' ' + ParamStr(i);

    if FileExists(FileName) then
    begin
      AceViewer.LeftPreview.LoadFromFile(ParamStr(1));
      AceViewer.UpdatePage;
    end;
   
  end;
  Application.Run;
end.