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 如何把程序钉到windows7任务栏(修正版)

delhpi如何直接获得webbrowser输入的xml文件

Delphi incyear、incmonth、incweek、incday、inchour、incminute、incsecond、incmillisecond �c 增时

Delphi tms web core twebhttprequest使用

Delphi 执行cmd并取得返回值

Delphi 的 tstringbuilder 可以完美实现jave ,c#的tstringbuilder功能

Delphi做异型窗体png透明

Delphi 用updateresource修改exe文件图标(已修正)

Delphi弹出信息框大全

Delphi sametext

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