Delphi 利用51.la统计程序使用量


本文整理自网络,侵删。

 
procedure Tfrm_main.webcount;
var
  s:array[0..100] of Char;
  winpath:array[0..MAX_PATH] of Char;
  mem:TMemoryStream;
begin
  GetWindowsDirectory(winpath,SizeOf(winpath));
  s:='<script language="javascript" type="text/javascript" src="http://js.users.51.la/xxxxx.js"></script>';
  mem:=TMemoryStream.Create;
  mem.Write(s,SizeOf(s));
  mem.SaveToFile(winpath+'\temp.html');
  mem.Free;
  web.Navigate(winpath+'\temp.html');
  DeleteFile(winpath+'\temp.html');
end;

相关阅读 >>

Delphi获取硬件信息

Delphi memo 控件光标定位

Delphi 编写网址加密解密代码

Delphi 附加数据读取

Delphi测试数据库连接时间

Delphi xe中将正则表达式tregex的使用

Delphi 2009 之 tballoonhint

Delphi of 打坐与普通攻击calll调用

Delphi 按esc快捷键退出程序的简单方法

Delphi 2009 泛型容器单元(generics.collections)[4]: tdictionary<t>

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...