从当前的浏览器取得当前URL

 

   确定在uses子句中增加DDEMan。


uses windows, ddeman, ......


function Get_URL(Servicio: string): String;
var
   Cliente_DDE: TDDEClientConv;
   temp:PChar;

本文地址：http://com.8s8s.com/it/it6048.htm