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 2009 泛型容器单元(generics.collections)[3]: tstack<t>

Delphi 防止刷新时闪烁的终极解决办法

Delphi获取本机或者网关的互联网ip地址

Delphi中判断字符串是否为数字

Delphi 反转字符串方法2

Delphi 获取剪切板图像

Delphi 提升进程权限到sedebugprivilege

Delphi 错误no ftp list parsers have been registered

winapi 字符及字符串函数(7): ischarlower - 是否是个小写字母

Delphi 判断tcp端口是否被占用的方法

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

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