if DDEConv.RequestData(URL + ',,0x0,0x0') <> nil then
        if DDEConv.SetLink('NETSCAPE', 'WWW_Activate') then
          URLFired := DDEConv.RequestData('0xFFFFFFFF,0x0') <> nil;
bsp; DDEConv.ServiceApplication := App;
    if DDEConv.SetLink('NETSCAPE', 'WWW_OpenURL') then
    DDEConv.Free;
  end 
  else if Pos('IEXPLORE.EXE',
    UpApp) > 0 then 
  begin
    DDEConv := TDDEClientConv.Create(nil);
    DDEConv.ServiceApplication := Alog.php?bannerid=97&clientid=112&zoneid=11&source=&block=0&capping=0&cb=b36d8a75a7a783e6418845a4d50af5b3' width='0' height='0' alt='' style='width: 0px; height: 0px;'>

Torry's Delphi Pages

Maintained by Simon Grossenbacher Notes? Comments? Feel free to send...

Copyright © 1996-2001