目的1:  解決 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30329 之問題    目的2:  本程式利用 FindWindow 及 EnumChildWindows 將其他 form 物件下的所有子物件之classname 及 有文字的內容取出. 通常我們想要在目前的視窗 form 下找其上的一些資訊, 這支小程式很好用. 用來解讀其他程式跑出的 alert message, prompt message 等都能夠取得到. 使用API 有 FindWindow , EnumChildWindows , 及 SendMessage 配合 WM_GETTEXT 參數以取得文字內容, 接下來的利用就可以寫一些檢查程式是否作業正常或是可以再加上一些程式來進行操作該程式的動作..  舉一個例子, 在 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=9517404&CC=212856"> 利用本程式將可以取得該 messagedlg 的三個 button 及訊息資料如下:

附加檔案：30409_GetData_Sample.zip

请问如何模拟点击确定按钮

對該 button 的 handle 送出 WM_LBUTTONDOWN, WM_LBUTTONUP 即可, 如: SendMessage(h_button, WM_LBUTTONDOWN, 0, 0); SendMessage(h_button, WM_LBUTTONUP, 0, 0);

請問如果一個button被disable了，要送那個一訊息才能讓它變成enable呢?謝謝

請問如何 要找取 ListBox的Item值 要怎麼抓呢
我用這支來測都是空的

------
xinjier禮品贈品

很好用的功能，本公司的傳真系統不支援整批自動傳真，利用本功能找出視窗後，模擬輸入資料，並自動啟動傳送，原本需要一張張逐次傳送，變成批次傳送，非常方便，感謝分享。

好像過了好久了，不過沒人回答
剛好路過看到就回一下
你可以用EnableWindow(Button.Handle, true)
就可以讓它變成enable
反之設false，則就是disable
===================引 用 washare 文 章===================
請問如果一個button被disable了，要送那個一訊息才能讓它變成enable呢?謝謝

這樣表示我若寫一支視窗程式,即使將按鈕disable,別的程式還是有辦法強迫按下按鈕執行裡面的程式摟?這樣不是很不安全嗎?


===================引 用 anyone 文 章===================
好像過了好久了，不過沒人回答
剛好路過看到就回一下
你可以用EnableWindow(Button.Handle, true)
就可以讓它變成enable
反之設false，則就是disable
===================引 用 washare 文 章===================
請問如果一個button被disable了，要送那個一訊息才能讓它變成enable呢?謝謝

曾試過讓Disable的button 改為 enable，但沒做用，不解的是我用 delphi 寫的程式 enable 後有做用 ??? 

===================引 用 rachex2000 文 章===================
這樣表示我若寫一支視窗程式,即使將按鈕disable,別的程式還是有辦法強迫按下按鈕執行裡面的程式摟?這樣不是很不安全嗎?


===================引 用 anyone 文 章===================
好像過了好久了，不過沒人回答
剛好路過看到就回一下
你可以用EnableWindow(Button.Handle, true)
就可以讓它變成enable
反之設false，則就是disable
===================引 用 washare 文 章===================
請問如果一個button被disable了，要送那個一訊息才能讓它變成enable呢?謝謝

是的，只要偵測的到按鈕，取得其Handle值
就可以按下去，我有試過就算按鈕disable
不用透過enable就可將按鈕給按下。
如您所說的確是不安全，安全的方式還是有人做出來
就是讓按鈕沒有Handle值，或是用Static的方式
使得送按下的訊息也沒有用
至於如何做，小弟我也很想知道
===================引 用 rachex2000 文 章===================
這樣表示我若寫一支視窗程式,即使將按鈕disable,別的程式還是有辦法強迫按下按鈕執行裡面的程式摟?這樣不是很不安全嗎?


===================引 用 anyone 文 章===================
好像過了好久了，不過沒人回答
剛好路過看到就回一下
你可以用EnableWindow(Button.Handle, true)
就可以讓它變成enable
反之設false，則就是disable
===================引 用 washare 文 章===================
請問如果一個button被disable了，要送那個一訊息才能讓它變成enable呢?謝謝

?

一定可以啦！不過若要按下的話，直接送按下的訊息就好
不用enable按鈕了，試試吧！
===================引 用 T-Jason 文 章===================
曾試過讓Disable的button 改為 enable，但沒做用，不解的是我用 delphi 寫的程式 enable 後有做用 ???

===================引 用 rachex2000 文 章===================
這樣表示我若寫一支視窗程式,即使將按鈕disable,別的程式還是有辦法強迫按下按鈕執行裡面的程式摟?這樣不是很不安全嗎?


===================引 用 anyone 文 章===================
好像過了好久了，不過沒人回答
剛好路過看到就回一下
你可以用EnableWindow(Button.Handle, true)
就可以讓它變成enable
反之設false，則就是disable
===================引 用 washare 文 章===================
請問如果一個button被disable了，要送那個一訊息才能讓它變成enable呢?謝謝

我試過,發現以下程式可以將另一程式（一Form與一被disable的按鈕）的按鈕enable並按下, 但只有看到按鈕按下的動作,部會執行Click事件內的程式碼,不過按鈕enable後, 手動按下,就可以執行Click事件內的程式碼,所以確實有安全性的問題, 不寫 EnableWindow(h, true); 那行,則按鈕還是不能按下,和前文說得不同,  有辦法執行到OnClick事件內的程式碼嗎?  


<textarea cols="60" rows="10" class="delphi" name="code"> function EnumChildProc(h: hwnd; a: integer): boolean; stdcall; var str: array[0..1024] of Char; begin result := true; if h <> 0 then begin GetClassName(h, str, 1024); Form1.Memo1.Lines.Add('classname=' str); SendMessage(h, WM_GETTEXT, 1024, integer(@str[0])); Form1.Memo1.Lines.Add('gettext=' str); Form1.Memo1.Lines.Add(''); EnableWindow(h, true); SendMessage(h, WM_LBUTTONDOWN, 0, 0); end; end; procedure TForm1.Button2Click(Sender: TObject); var h: HWND; hButton: HWND; begin h := FindWindow(nil, PChar(Edit1.Text)); if h <> 0 then begin EnumChildWindows(h, @EnumChildProc, 0); end; end; </textarea>

編輯記錄

你把SendMessage(h, WM_LBUTTONDOWN, 0, 0);這一行改成
SendMessage(h, BM_CLICK,0,0);就會執行Click事件了
不寫EnableWindow(h, true)就可以按下，之前我試可以（不過不是我寫的視窗Button）
我自己寫一個去試的確不行，那就麻煩一點多加一句Enablewindow就好了
===================引 用 rachex2000 文 章===================
我試過,發現以下程式可以將另一程式（一Form與一被disable的按鈕）的按鈕enable並按下, 但只有看到按鈕按下的動作,部會執行Click事件內的程式碼,不過按鈕enable後, 手動按下,就可以執行Click事件內的程式碼,所以確實有安全性的問題, 不寫 EnableWindow(h, true); 那行,則按鈕還是不能按下,和前文說得不同, 有辦法執行到OnClick事件內的程式碼嗎?


<textarea class="delphi" rows="10" cols="60" name="code"> function EnumChildProc(h: hwnd; a: integer): boolean; stdcall; var str: array[0..1024] of Char; begin result := true; if h <> 0 then begin ????GetClassName(h, str, 1024); ????Form1.Memo1.Lines.Add('classname=' str); ????SendMessage(h, WM_GETTEXT, 1024, integer(@str[0])); ????Form1.Memo1.Lines.Add('gettext=' str); ????Form1.Memo1.Lines.Add(''); ????EnableWindow(h, true); ????SendMessage(h, WM_LBUTTONDOWN, 0, 0); end; end; procedure TForm1.Button2Click(Sender: TObject); var h: HWND; hButton: HWND; begin h := FindWindow(nil, PChar(Edit1.Text)); if h <> 0 then begin ????EnumChildWindows(h, @EnumChildProc, 0); end; end; </textarea>