如何使用Delphi构建桌面粘合应用程序？

Question

我想使用Delphi开发一个Windows应用程序，即使用户单击任务栏上的“显示桌面”按钮，也始终保持在桌面上。

我尝试了代码：       SetWindowPos（Handle，HWND_BOTTOM，Left，Top，Width，Height，SWP_NOACTIVATE或SWP_NOMOVE或SWP_NOSIZE）;

但是，当我点击显示桌面时，表单变得不可见。 任何解决方案？

Answer 1

我同意David Heffeman的说法，即在未经用户同意的情况下向用户发布此类应用程序时需要小心。

话虽如此，我在我为自己个人使用而编写的应用程序中完成了此操作。

将BorderStyle设置为bsNone。

设置一个计时器，并在每个计时器上执行：

 if visible then SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_NOACTIVATE);