[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

program Netscape;

uses DDEMan;

procedure GotoURL( sURL : string );
var
dde : TDDEClientConv;
begin
dde   := TDDEClientConv.Create( nil );
with dde do
  begin
     // specify the location of netscape.exe
     ServiceApplication :='c:\ns32\program\netscape.exe';
     // activate the Netscape Navigator
     SetLink( 'Netscape', 'WWW_Activate' );
     RequestData('0xFFFFFFFF');
     // go to the specified URL
     SetLink( 'Netscape', 'WWW_OpenURL' );
     RequestData(sURL+',,0xFFFFFFFF,0x3,,,' );
     // ...
     CloseLink;
  end;
dde.Free;
end;

begin
GotoURL('http://www.whatever.com/' );
end.

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]