We couldn't find anything in the Windows API so we used the following
instead.
WinExec(PChar('RunDLL32 shell32.dll,OpenAs_RunDLL ' + FileName),
SW_NORMAL);
Stacey Verner Ph: +64-9-4154790
Software Developer Fax: +64-9-4154791
CJN Technologies Ltd. Email: [EMAIL PROTECTED]
PO Box 302-278, North Harbour, Auckland, New Zealand
12 Piermark Drive, North Harbour Estate, Auckland, NZ
Visit our website at http://www.cjntech.co.nz/
> -----Original Message-----
> From: Donovan J. Edye [SMTP:[EMAIL PROTECTED]]
> Sent: Friday, November 05, 1999 10:39 AM
> To: Multiple recipients of list delphi
> Subject: [DUG]: "Open With" Dialog....
>
> G'Day All,
>
> Does anyone know the API call to invoke the "Open With" Dialog? ie The
> one
> you get when you double click on a file that does not have a
> registered
> extension?
>
> ----------------------------------------------------------------------
> --
> --Donovan
> Donovan J. Edye [www.edye.wattle.id.au]
> Namadgi Systems, Delphi Developer
> Web: www.namsys.com.au E-Mail: [EMAIL PROTECTED]
> Voice: +61 2 6285-3460 Fax: +61 2 6285-3459
> TVisualBasic = Class(None);
> ----------------------------------------------------------------------
> --
>
> ----------------------------------------------------------------------
> -----
> New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
