热点排行

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

类别：Delphi 点击：0 评论：0 推荐：

 

   确定在uses子句中增加DDEMan。


uses windows, ddeman, ......


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

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

Copyright © 2004-2013 信息技术中文网 All rights reserved 版权所有

Powered by 信息技术中文网 Ver2.0