Browser aufruf

[PiT123]

Hallo,

ich bin am verzweifeln.. möchte doch einfach nur das 2 neue Fenster geöffnet werden.
Hier zuhause funzt das super ich nutze den IE, an einem anderen PC auch mit IE öffnet er nur ein Fenter und wenn dann auch noch das was offen ist.

Hat jemand eine lösung für mich ?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Shellapi, ExtCtrls, CoolTrayIcon, TextTrayIcon, Menus, Registry;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    Open1: TMenuItem;
    Exit1: TMenuItem;
    Button3: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
TMP: Array[0..255] of char;
TMP1: Array[0..255] of char;
begin
StrPCopy(TMP, Edit1.Text);
StrPCopy(TMP1, Edit3.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
termin: integer;
TMP: Array[0..255] of char;
TMP1: Array[0..255] of char;
begin
termin:=strtoint(edit2.text);
Timer1.Interval :=termin;
Timer1.Enabled := True;
StrPCopy(TMP, Edit1.Text);
StrPCopy(TMP1, Edit3.Text);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
termin: integer;
TMP: Array[0..255] of char;
TMP1: Array[0..255] of char;
begin
termin:=strtoint(edit2.text);
termin:=termin*60*1000;
Timer1.Interval :=termin;
Timer1.Enabled := True;
StrPCopy(TMP, Edit1.Text);
StrPCopy(TMP1, Edit3.Text);
ShellExecute(0,NIL,TMP,NIL,NIL,SW_Normal);
ShellExecute(0,'open',TMP1,NIL,NIL,SW_Normal);
end;
procedure TForm1.Open1Click(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
halt;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Hide
end;
end.

[Aenogym]

hi,

ich verstehe dein problem nicht so ganz. was genau möchtest du machen?
zwei browserfenster öffnen sollte per shellexecute eigentlich problemlos funktionieren...

Aenogym

[Assarbad]

Moment, du meinst, daß der IE sich mal eben die neue URL aus ShellExecute abfängt und dann diese anzeigt? Der IE managt das irgendwie über DDE. Soweit ich mich entsinne, kannst du mit IWebBrowser2 und den verwandten Interfaces eine neue IE-Instanz erzwingen.