有一個檔再雙擊後會彈出一個對話方塊，提示你是否繼續操作，現在我知道 它的classname:是#32771裏面有一個 (y) 和 (no) 我如何寫個程式判斷這個視窗存在，然後自動按下yes? Thx! 我現在能find 到這個視窗，可是不知道如何去 自動按下這個yes. objecthandle:=findwindow(pchar('#32771'),nil); if objecthandle<>0 then begin //? end; ----------要知道自己有多笨，到DelphiK.Top來看看----------

可以參考這份程式,裡面有你要的功能,只不過你要試一下,這份真的不錯我也有拿來應用過喔 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30743

hcker 你好:    嗯...上述文章很完整... 不過...既然準備了...貼上來參考參考. < class="code"> type TWinFinder = record wClassName: string; Title: string; WHandle: HWnd; FoundWindow: Boolean; end; function WindowTesterByCaption(wnd: HWnd; var Info: TWinFinder): Bool; stdcall var Buf: array [Byte] of Char; WText : string; begin GetWindowText(wnd, Buf, sizeof(Buf)); WText := string(Buf); Result := True; if pos(Info.Title, WText)=1 then begin Info.WHandle:= Wnd; Info.FoundWindow:=True; Result := False; end; end; var ChildWin:TWinFinder; begin ... objecthandle:=findwindow(pchar('#32771'),nil); if objecthandle<>0 then begin ChildWin.Title:='y'; ChildWin.FoundWindow := False; EnumChildWindows(objecthandle,@WindowTesterByCaption, Integer(@ChildWin)); if ChildWin.FoundWindow then begin BringWindowToTop(objecthandle); //使其成為Topwindow // 模擬 MouseClick PostMessage(ChildWin.WHandle,WM_LBUTTONDOWN,0,0); sleep(100); PostMessage(ChildWin.WHandle,WM_LBUTTONUP,0,0); end; end; end;

謝謝大大，但是這個 yes 該如何寫呢？     ----------要知道自己有多笨，到DelphiK.Top來看看----------

他的 Caption 應該不是 "是(Y)".... 1. Trace 看看 WText 有哪些, 應該是哪個才對. 2. ChildWin.Title := '是'; 試試看.

我的做法是將每個handle內文字紀錄到一字串陣列中 然後藉由pos去找到該handle後下指令 // 取得handle文字內容 SendMessage(hwnd, WM_GETTEXT, 1024, long(&str[0])); s2[i]=AnsiString(str); if (AnsiString(s2[i1]).Pos("是(")>0) { Memo2->Lines->Add(s1[i1]); ComboBox2->ItemIndex=i1; try{ SendMessage(ComboBox2->Items->Objects[ComboBox2->ItemIndex], BM_CLICK, 0, 0); i2=Test_Num 1; break; } catch (...) { } }