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与用windows 7下的用户账户控制(uac)机制

Delphi 关于位图的像素格式

Delphi 安卓动态申请权限清单类

Delphi setcursorpos函数在窗口上定位鼠标坐标

Delphi 泛型，存放n张图片

Delphi firedac 下的 sqlite [9] - 关于排序

Delphi mscomm 实时串口通讯

Delphi 为数字补充前缀0

Delphi让listbox实现即指即显功能

Delphi 用注册表对Delphi程序进行验证

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

转载请注明出处：木庄网络博客 » Delphi 利用51.la统计程序使用量