（如何）我可以使用带有标准文件打开对话框的 FutureWindows 吗？

发布于 2025-01-08 19:51:08 字数 475 浏览 0 评论 0 原文

我一直在尝试使用 tomazy 的 FutureWindows 基础设施（请参阅他的答案 Delphi GUI 测试和模态表单或工具主页 https://github.com/tomazy/DelphiUtils），但想知道它是否以及如何与标准 Windows 文件打开对话框一起使用？它们似乎没有继承自 TControl，而 FutureWindows 基础结构似乎假设了这一点（除非我误解了它）。

我想做的基本上只是在 OpenFileDialog 中选择一个文件，该文件是通过我的测试中的命令以模式方式打开的，但尚未弄清楚如何执行此操作。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

小巷里的女流氓 2025-01-15 19:51:08

使用诸如 Spy++ 之类的工具来查找窗口类名称。例如，在我的 Windows 7 计算机上，系统文件打开对话框的窗口类名称是 #32770 (Dialog)。

回复收藏 0 原文

⊕婉儿 2025-01-15 19:51:08

我当前的解决方案如下：

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);

所以基本上使用 Windows API 发送消息。这些想法（和ID 1148）可以从这里找到：http://social.msdn.microsoft.com/forums/en-US/winforms/thread/62d5db14-5497-4ceb-8af0-d7f81732e937/

欢迎可能的更好的解决方案，但这至少现在对我来说似乎足够了。
感谢到目前为止的评论！

My current solution is below:

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);

So basically sending a message using Windows API. The ideas (and the ID 1148) were found from here: http://social.msdn.microsoft.com/forums/en-US/winforms/thread/62d5db14-5497-4ceb-8af0-d7f81732e937/

Possible better solutions are welcome, but this seems fine enough for me at least for now.
Thanks for the comments so far!

回复收藏 0 原文

~没有更多了~