Programm über TWebbrowser starten

[grips-net]

Hallo.

Du kannst den aufgerufenen Link abfangen.

Ergänze dazu das BeforeNavigate2 - Ereignis ...

Delphi-Quellcode:

      

iRun := pos('RUN:', URL);     

if iRun > 0 then
  sUrl := copy(URL, iRun+4, 1024);

if sUrl = 'meinprogramm' then
begin
 if fileexists(sFile) then
   ShellExecute(self.handle, pChar('OPEN'), pChar(SFile), nil, nil, SW_SHOW);
      
 Cancel := true; // Bricht das Navigieren ab.
end;

... und ändere den Link im HTML-Quellcode nach ...

Zitat:

Starte das externe Programm

Das BeforeNavigate2 - Ereignis kannst du nach Belieben erweitern.


Grüße

Michael