摘要:
/// summary /// 获取系统默认的UserAgent /// uses SHDocVw, MSHTML; /// /summary function GetUserAgent: string; var Doc: IHTMLDocument2; win: IHTMLWindow2; wb: TWebBrowser; begin Result := ''; try wb := TWebBrowser.Create(nil); try wb.Navigate('about:blank'); while not wb.ReadyState = READYSTATE 阅读全文
posted @ 2010-12-30 03:06
Supper
阅读(1954)
评论(0)
推荐(0)
浙公网安备 33010602011771号