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.chami.com/tips/' );
end.