http://bbs.csdn.net/topics/240011502
引用 3 楼 kelei0017 的回复:
Delphi(Pascal) code
procedure TInformationCenterFm.WebBrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
{ 我一般是这么处理的,在后面加一随机串,不会影响访问的 }
URL := URL + ifthen(Pos('?', URL) <= 0, '?', '&') + FormatDatetime('yyyymmddhhnnsszzz', Now);
end;