Einzelnen Beitrag anzeigen

grips-net

Registriert seit: 3. Sep 2004
Ort: St. Wendel
50 Beiträge
 
#2

Re: Programm über TWebbrowser starten

  Alt 23. Apr 2007, 14:20
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 = 'meinprogrammthen
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 ...

Das BeforeNavigate2 - Ereignis kannst du nach Belieben erweitern.


Grüße

Michael
  Mit Zitat antworten Zitat