(Làm cách nào) Tôi có thể sử dụng FutureWindows với các hộp thoại mở tập tin chuẩn không?

Question

Tôi đã cố gắng sử dụng cơ sở hạ tầng FutureWindows của Tomazy (xem câu trả lời của mình tại Delphi GUI Testing and Modal Forms hoặc trang chủ của công cụ tại https://github.com/tomazy/DelphiUtils), nhưng muốn biết liệu nó có thể được sử dụng với hộp thoại mở tệp chuẩn của Windows không? Họ dường như không được thừa hưởng từ TControl, mà Infra FutureWindows dường như giả định (trừ khi tôi đã hiểu lầm nó). Những gì tôi muốn làm là về cơ bản chỉ cần chọn một tập tin trong một OpenFileDialog được mở ra một cách khiêm tốn bởi một lệnh trong thử nghiệm của tôi, nhưng vẫn chưa thể tìm ra cách để làm điều này.

Answer 1

Sử dụng công cụ như Spy++ để tìm hiểu tên cửa sổ là gì. Ví dụ, trên máy tính Windows 7 của tôi, tên lớp cửa sổ cho hộp thoại mở tệp hệ thống là #32770 (Dialog).

Answer 2

giải pháp hiện tại của tôi là dưới đây:

TFutureWindows.Expect(MESSAGE_BOX_WINDOW_CLASS) 
    .ExecProc(
    procedure (const AWindow: IWindow) 
    var 
     DlgHandle: HWND; 
     FileName: string; 
    begin 
     FileName := ExpandFileName('myFileToUse.txt'); 
     DlgHandle := AWindow.GetHandle; 
     Windows.SetDlgItemText(DlgHandle, 1148, PChar(FileName)); 
    end 
    ) 
    .ExecSendKey(VK_RETURN); 

Vì vậy, về cơ bản gửi một thông điệp sử dụng Windows API. Ý tưởng (và ID 1148) được tìm thấy tại đây: http://social.msdn.microsoft.com/forums/en-US/winforms/thread/62d5db14-5497-4ceb-8af0-d7f81732e937/

Có thể có các giải pháp tốt hơn, nhưng điều này có vẻ tốt cho tôi ít nhất là bây giờ. Cảm ơn các ý kiến ​​cho đến nay!