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

Question

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

我试过代码:settwindowpos (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);