Ist der IE gestartet wurden?

[SkinnerLA]

Hallo,

Wie kann ich herausbekommen ob der IE gestartet wurde?

Danke im Voraus

[Andreas Kosch]

Hallo,

Microsoft hat dazu in der MSDN Library hat den Knowlegdebase-Artikel <b>Q176792 "HOWTO: Connecting to a Running Instance of Internet Explorer"</b> veröffentlicht. Das folgende Beispiel baut die von MS vorgestellte C++-Lösung in Delphi nach. Wenn der Interface-Zeiger auf IWebBrowser2 gültig ist, läuft eine IE-Instanz:
<pre>
unit ConnectToIEFrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, SHDocVw_TLB, OleServer;
type
TForm1 = class(TForm)
Button1: TButton;
InternetExplorer1: TInternetExplorer;
ShellWindows1: TShellWindows;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ Typbibliothek von Microsoft Internet Controls installieren:
- TShellWindows für IShellWindow
- TInternetExplorer }
procedure TForm1.Button1Click(Sender: TObject);
var
aBrowserObj : IWebBrowser2;
i : Integer;
begin
for i := 0 to ShellWindows1.Count - 1 do
begin
aBrowserObj := ShellWindows1.Item(i) as IWebBrowser2;
if aBrowserObj.LocationURL = 'http://www.entwickler.com/' then
begin
InternetExplorer1.ConnectTo(aBrowserObj);
InternetExplorer1.GoHome;
InternetExplorer1.Disconnect;
end;
end;
end;
end.
</pre>
Die Konfiguration von TShellWindow und TInternetExplorer sieht in der DFM wie folgt aus:
<pre>
object InternetExplorer1: TInternetExplorer
AutoConnect = False
ConnectKind = ckRunningOrNew
Left = 32
Top = 64
end
object ShellWindows1: TShellWindows
AutoConnect = True
ConnectKind = ckRunningOrNew
Left = 64
Top = 64
end
</pre&gt

[SkinnerLA]

eeehmm das is mir etwas peinlich aber
ich bin noch anfänger und versteh das net so ganz kannst du mir das mal per mail in einem Beispiel prog. schicken????Bitte,Bitte,Bitte

email: [email protected]
danke im voraus..

[Andreas Kosch]

Hallo,

das Beispielprojekt kann im Ordner <b>Delphi | Download</b> heruntergeladen werden