TWebbrowser按Submit後出現安全性的訊息 |
缺席
|
Sei
一般會員 發表:22 回覆:38 積分:17 註冊:2002-05-22 發送簡訊給我 |
|
Sei
一般會員 發表:22 回覆:38 積分:17 註冊:2002-05-22 發送簡訊給我 |
不好意思,麻煩大家了,我大概找了一下資料,有解答了,而且可用
網址是http://www.euromind.com/iedelphi/embeddedwb/tips.htm(搜尋之前的文張,有人有post這個網址) 程式如下:
private procedure WMActivate(var Msg: TWMActivate); message WM_ACTIVATE; procedure TForm1.WMActivate(var Msg: TWMActivate); var S: String; wnd: HWND; I: Integer; begin If Msg.Active=0 then begin wnd := Msg.ActiveWindow; I := GetWindowTextLength(wnd); SetLength(S, I 1); GetWindowText(Wnd, PChar(S), I 1); If Pos('安全性資訊', S)>0 then Sendmessage(wnd,WM_CLOSE,0,0); end; end;我也試過模擬enter去按下那些安全性的按鈕,可行,可是不是很好的方案 以上,大家參考看看,把「安全性資訊」改成微軟跳出box的標題,如有錯誤煩請指正~謝謝 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |