At 16:28 04/07/2001 +1200, you wrote:
>Couldn't you just utilise the extension-association built into Windows and
>simply WinExe() the document -- not the application with the document as a
>parameter? Assuming that the document has the right extension and Acrobat
>Reader is the only application installed and associated with PDF files,
>Windows should then just run up Acrobat Reader and display your document.
In my case I use it to open an URL in a new browser window. If you just
execute the URL itself, it will open in an already existing window. Boy do
I hate that.
Anyway, it sounded like Eion was trying to open an app without a specific
document.
>Another thing you could do is to look at the registry for applications
>associated with PDF files and work your way back that way all the way to the
>application complete with path and all.
Which I'm guessing is what FindExecutable does, give or take.
>-Andreas
>
>-----Original Message-----
>From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
>Behalf Of Edward Aretino
>Sent: Wednesday, 4 July 2001 14:36
>To: Multiple recipients of list delphi
>Subject: Re: [DUG]: Running an external program
>
>
>Hi Eion,
>
>It sounds like you're looking for FindExecutable. Apparently there's some
>small quirk in the WinAPI call, so the code (ShellFindExecutable) below
>comes in handy. Thanks to Petr Vones (Team JEDI) for that.
>
>I use it like this:
>uses ShellAPI
>...
> strApp := ShellFindExecutable('C:\test.pdf', '');
> ShellExecute(Application.Handle, 'OPEN', pchar(strApp),
>pchar(strDocToOpenIfAny), nil, SW_SHOW);
>
>Just make sure there is actually a 'C:\test.pdf' or whatever - even if you
>just create one in name only. Although I'd be interested in a work-around
>to that if anyone knows of one.
>
>Ed
>
>
>----------
>function ShellFindExecutable(const FileName, DefaultDir: string): string;
>var
> Res: HINST;
> Buffer: array[0..MAX_PATH] of Char;
> P: PChar;
>begin
> FillChar(Buffer, SizeOf(Buffer), #0);
> if DefaultDir = '' then P := nil else P := PChar(DefaultDir);
> Res := FindExecutable(PChar(FileName), P, Buffer);
> if Res > 32 then
> begin
> P := Buffer;
> while PWord(P)^ <> 0 do
> begin
> if P^ = #0 then // FindExecutable replaces #32 with #0
> P^ := #32;
> Inc(P);
> end;
> Result := Buffer;
> end else
> Result := '';
>end;
>
>
>At 12:46 04/07/2001 +1200, you wrote:
> >Hi
> >
> >We want to start an external program from within an Delphi app. The only
>way
> >we have found how to do it so far is via
> >WINEXEC but this we can get this to work properly is but physically putting
> >the full programs exe path in for it to start.
> >The file type under explorer indicates that the extension of the file we
> >wish to load is associated with the application i.e. PDF = acrobat reader.
> >Is there another way, or other command, to available to start this app
> >without having to have the full exe path in the program,
> >as the application may not be in the same location on every PC.
> >
> >Eion McIntosh
> >PPCS Ltd
> >---------------------------------------------------------------------------
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> >To UnSub, send email to: [EMAIL PROTECTED]
> >with body of "unsubscribe delphi"
>
>---------------------------------------------------------------------------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>To UnSub, send email to: [EMAIL PROTECTED]
>with body of "unsubscribe delphi"
>
>---------------------------------------------------------------------------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>To UnSub, send email to: [EMAIL PROTECTED]
>with body of "unsubscribe delphi"
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
