Author: Erwin Molendijk

Open a webpage in a webbrowser that's allready active.

Answer:

1   {
2   This opens a webpage in a browser window that's allready active.
3   I found the code somewhere on the borland site.
4   }
5   
6   procedure GotoWebPage;
7   var
8     DDE: TDDECLientConv;
9     URL: string;
10    URLFired: Boolean;
11  begin
12    URL := 'http://www.hotbot.com';
13  
14    DDE := TDDEClientConv.Create(nil);
15    try
16      DDE.ServiceApplication := 'iexplore';
17  
18      if DDE.SetLink('iexplore', 'WWW_OpenURL') then
19        if DDE.RequestData(URL + ',,1') <> nil then
20          if DDE.SetLink('iexplore', 'WWW_Activate') then
21            URLFired := DDE.RequestData('0,0') <> nil;
22    finally
23      DDE.Free;
24    end;
25  end;