我用WebBrowser控件写了个自动注册网页ID的程序,可是每次做完之后都是同一个账号,请问怎样可以每次申请的时候,都让WebBrowser控件刷新 Help~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我是在程序中动态申请的WebBrowserwb := TWebBrowser.Create(Form1);TWinControl(wb).Parent := Form1;wb.Align := alright;每次申请完都free在重新开始,用个Timer来控制的,可能和cookie有关,知道的大虾Help Me~ 找到cookie目录uses Registry; function GetDirectory: string; var reg : TRegistry; begin reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Special Paths\Cookies', False); Result := reg.ReadString('Directory'); finally reg.Free; end; end; procedure TForm1.Button1Click(Sender : TObject); var s : string; begin S := GetDirectory; ShowMessage(GetDirectory); end; 将该目录清空 WebBrowser阻止了有活动内容的网页怎么办? 如何自动填充浏览器中的表单 关于cast函数 怎么写这个sql查询语句,实现字段类型由字符类型转成整数型?谢谢 请问在delphi7中,TDateTime是以什么为单位的? ________200!! 急请教~ 有权限限制的软件编写问题~谢谢各位前辈~ 一个简单问题,怎样得到两个指定字符之间的字符!! 登陆问题,高手进来回答 问个很偏的问题``` 关于Sender.free 的问题,急!! 问个超简单的问题,关于注释 向网络编程高手提问一个有关于更改网关联网通信的问题
wb := TWebBrowser.Create(Form1);
TWinControl(wb).Parent := Form1;
wb.Align := alright;
每次申请完都free在重新开始,用个Timer来控制的,可能和cookie有关,
知道的大虾Help Me~
uses
Registry; function GetDirectory: string;
var
reg : TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Special Paths\Cookies',
False);
Result := reg.ReadString('Directory');
finally
reg.Free;
end;
end; procedure TForm1.Button1Click(Sender : TObject);
var
s : string;
begin
S := GetDirectory;
ShowMessage(GetDirectory);
end; 将该目录清空