Programm über TWebbrowser starten

[flosoft]

Hallo,
ich möchte ein CD Menü mit der TWebbrowser Komponente realiesen, da es bereits in HTML vorliegt.
Aus dieser HTML-Seite möchte ich selbst geschrieben Programme (*.exe) starten ohne die störende Frage ob ich das Programm ausführen oder speichern möchte. Das eigentliche Starten der Progarmme funktioniert bereits (ShellExecute bzw. CreateProcess).
Wie kann ein Link auf der HTML-Seite auf CreateProcess "umleiten"?
Danke!

[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

[flosoft]

Hallo grips-net,

danke funktioniert so wie gewollt

Mußte allerdings iRun := pos('RUN:', URL); zu iRun := pos('run:', URL); ändern.

[flosoft]

Hi grips-net,

Dein Lösung funktioniert wie gesagt super unter XP und IE6. Mit Vista und IE7 scheint aber irgendwas bei dem BeforeNavigate2 Ereignis anders zu sein.
Hat jemand eine Lösung?

Danke

[grips-net]

Hallo flosoft,

ich habe die Lösung quasi so unter VISTA und IE 7 getestet. Was mein Programm nicht hat, ist das shellexecute. Statt dessen fange ich die Links ab und öffne ein Delphi-Formular.

Vielleich debugst du dein System mal und sagst mir wie weit du kommst:

• Springt er in das Ereignis OnBeforeNavigate2?
• Welchen Wert hat die Variable URL?
• Was macht shellexecute wenn du es mit den identischen Parametern manuell (Button) aufrufst?

Grüße aus dem Saarland

Michael Gillen

[flosoft]

Hi Michael,

danke für den Hinweis. War wohl schon zu müde, um das Problem genauer anzugehen.

Es liegt an der Routine, die meine Programme startet! Ich verwende nicht ShellExecute sondern CreateProcess.
Gut oder auch nicht - nun weis ich jedenfalls wo ich weiter suchen muss.



Grüße aus Köln
Florian