delphi - 如何将我的应用程序置于最前面？

Question

我知道为什么这是一个坏主意的所有原因。我不喜欢应用程序窃取输入焦点，但这纯粹是为了个人使用，我希望它发生；它不会打扰任何事情。

(出于好奇:我正在 NetBeans 中运行单元测试，它会生成一个日志文件。当我的后台应用程序看到日志文件的时间戳更改时，我希望它解析日志文件并在前面显示结果) .

This question没有帮助，谷歌搜索也没有帮助。看来 BringToFront() 已经很长时间没有工作了，而且我找不到任何替代方案。

有什么想法吗？

Answer 1

这里有一些简单的东西，似乎可以工作，并在包括 XP、Server2003、Vista、Server2008、W7 的多个机器上进行了测试。测试应用程序使用标准(或管理员)帐户运行，在前台写入时从记事本窃取输入焦点。

var
  Input: TInput;
begin
  ZeroMemory(@Input, SizeOf(Input));
  SendInput(1, Input, SizeOf(Input)); // don't send anyting actually to another app..
  SetForegroundWindow(Handle);

您可以进一步调整它:如果需要的话，可以使用最小化的应用程序或类似的应用程序。