库存管理软件版1楼: WEBBrowser第二次载入网页在不退出程序的情况下清除前一次的cookies.


下面是我已解决的问题
我在WEBBrowser打开网页,每次的打的网页不同,每次打开都是从网页的顶部开始显示,如何才能做到打开网页后在WEBBrowser中显示指定的位置,不需要拖滚动条

2楼: 已解决
uses
MSHTML;

procedure WebBScroll(WB: TWebBrowser; X, Y: Integer);
begin
((WB.Document as IHTMLDocument2).parentWindow as IHTMLWindow2).scroll(X ,Y);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBScroll(WebBrowser1, 10, 400);
end;

怎么结束这个贴 如服装销售软件破解版

3楼: 把所有分填到我的上面，按发出[:D][:D][:D]。HOHO。。。

4楼: 风铃夜思雨帮我解决新问题100分给你

5楼: procedure DeleteIECache; //清理IE缓存
var
lpEntryInfo: PInternetCacheEntryInfo;
hCacheDir: LongWord;
dwEntrySize: LongWord;
cachefile: string;
i: integer;
cancheqqlist: TStringList;

begin
cancheqqlist := TStringList.Create;
cancheqqlist.Clear;
dwEntrySize := 0;
FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
GetMem(lpEntryInfo, dwEntrySize);
if dwEntrySize > 0 then
lpEntryInfo^.dwStructSize := dwEntrySize;
hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
if hCacheDir <> 0 then
begin
repeat
if (lpEntryInfo^.CacheEntryType) and (NORMAL_CACHE_ENTRY) = NORMAL_CACHE_ENTRY then
cachefile := pchar(lpEntryInfo^.lpszSourceUrlName);
if pos(＇＇qq.com＇＇, cachefile) > 0 then
cancheqqlist.Add(cachefile);
for i := 0 to cancheqqlist.Count - 1 do
DeleteUrlCacheEntry(pchar(cancheqqlist.Strings[i]));
FreeMem(lpEntryInfo, dwEntrySize);
dwEntrySize := 0;
FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
GetMem(lpEntryInfo, dwEntrySize);
if dwEntrySize > 0 then
lpEntryInfo^.dwStructSize := dwEntrySize;
until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
end;
FreeMem(lpEntryInfo, dwEntrySize);
FindCloseUrlCache(hCacheDir);
cancheqqlist.Free;
end;

uses
MSHTML

6楼: [Error] RasDial1.pas(1435): Undeclared identifier: ＇＇PInternetCacheEntryInfo＇＇
[Error] RasDial1.pas(1445): Undeclared identifier: ＇＇FindFirstUrlCacheEntry＇＇
[Error] RasDial1.pas(1445): Undeclared identifier: ＇＇TInternetCacheEntryInfo＇＇
[Warning] RasDial1.pas(1446): Unsafe code ＇＇GetMem＇＇

这些错误怎么解决

库存管理软件版7楼: uses WinInet

8楼: 多人接受答案了。