1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure GotoURL( sURL : string );
var
  dde : TDDEClientConv;
begin
  dde   := TDDEClientConv.Create( nil );
  with dde do
  begin
    { specify the location of netscape.exe }
    ServiceApplication := 'd:\programme\netscape7\netscp.exe';

    { activate the Netscape Navigator }
    SetLink( 'Netscape6', 'WWW_Activate' );
    RequestData('0xFFFFFFFF');

    { go to the specified URL }
    SetLink( 'Netscape6', 'WWW_OpenURL' );

    RequestData(sURL+',,0xFFFFFFFF,0x3,,,' );
    CloseLink;
  end;
  dde.Free;
end;					

1:
2:
3:

{ activate the Netscape Navigator } 
SetLink( 'Netscape6', 'WWW_Activate' ); 
RequestData('0xFFFFFFFF');