[DUG] Open on associated file

[Mark Howard]

Hi John

You just have to have some code that executes as if a command line parameter is passed to the application

eg
procedure TForm1.FormCreate(Sender: TObject);
begin
   if not (ParamStr(0) = '') then
    begin
         QuickReport1 := TQuickReport1.Create(nil);
         try
            QuickReport1.Prepare;
            QuickReport1.QRPrinter.Load(ParamStr(1));
            QuickReport1.QRPrinter.PreviewModal;
         finally
            QuickReport1.Free;
         end;
   end;
end;

Mark

On Tue, 14 Mar 2006 08:23:22 +1300, John <john at padasy.co.nz> wrote:

> Hi all
>
> What code do I need in the application to open the application when an
> associated file is clicked?
>
> TIA
> John
>
> _______________________________________________
> Delphi mailing list
> Delphi at ns3.123.co.nz
> http://ns3.123.co.nz/mailman/listinfo/delphi
>
>
>



-- 
Forest Production Systems Ltd
Creators of PSLog - A harvesting information system
www.pslog.co.nz
Skype: markhoward


-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 268.2.1/279 - Release Date: 10/03/2006