Question

请教高手一个关于delphi7禁止窗口最小化的问题。

我有一个程序A，我用vb写的，我把窗口MinButton属性设为false以后最大化和最小化按钮就去掉了，窗口就不能最小化了。这时点击显示桌面，程序也会不见，不过你要是打开桌面的任何一个程序，我自己写的那个程序A也会自己在桌面再次显示。

我现在用delphi7写了同样的一个程序，最小化和最大化按钮也去掉了，点击显示桌面，程序也在桌面显示了，但是不同的时，我这时打开桌面上的任何程序，我自己写的那个程序却没有在桌面再次显示，也就是说程序虽然没有了最小化按钮，但是点击显示桌面后，程序还是最小化了。

我怎么样才能实现就像VB的那个功能，点击桌面程序虽然不见了，但却不是最小化。

注意：我要的不是一直在桌面显示，现在我能让程序一直在桌面显示，但是问题时，点击显示桌面，程序可以看见。
我要的是点击桌面后程序就在桌面看不见了，但这时并没有最小化。
有个地方写错了：点击显示桌面，程序也在桌面“不见”了，但是不同的时，我这时打开桌面上的任何程序，我自己写的那个程序却没有在桌面再次显示

Answer 1

这个还是建议你使用注册系统热键的方法，使用快捷键操作窗口的隐藏和显示

Answer 2

1、可以让程序一直在桌面，让它透明为1.
2、最小化也能截图，何须非要打开呢？

追问

最小化怎么截图？这我不会啊。请教怎么最小化截图啊。求指教。

追答

procedure TForm2.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= true;
SetCapture(Self.Handle);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Timer1.Enabled:= false;
end;
procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:= false;
ReleaseCapture;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
GetCursorPos(pt);
c:= GetPixel(GetDC(0), pt.X, pt.Y);
Edit1.Text:= format('#%.6x', [c]);
Panel1.Color:= c;
end;
这个是我写的屏幕取色，本来鼠标在窗体之外点击，窗体将失去焦点，那么鼠标的按下事件就不会触发。经过 SetCapture(Self.Handle);，在窗体外点鼠标也会触发事件，表明窗体还有管用。
截图也同样道理吧，我只是想像是这样，你试试

Answer 3

不知道你这样搞有什么意义，拼命地与你的软件用户作对，有什么好处，人家点击显示桌面的原因是因为目前桌面上打开的程序太多了，想最小化目前桌面上的所有程序，打开另外一个目前桌面上没有的程序，但是你却要你的软件老是阻挡住用户的视线，人家清除桌面后，另外打开一个他希望马上使用的软件，结果你那东西，马上跳出来与用户作对，这和一些人无论软件是什么性质，总是设置一个开机自动启动一样，招用户讨厌啊！其结局就是，用户一看到有这种副作用的软件就删除，不用你的臭软件。
和用户作对，是没有什么好结果的。

追问

这不是作对，别人打开软件，窗口虽然显示在桌面，但是并没有获得焦点，也挡不住你打开的软件，因为我需要对我的软件时刻进行截图，如果最小化了，就截不到了，而用VB做的那个效果，就正好适合，只是速度慢，不想用。
用delphi做的，点显示桌面时，其实也是把窗口最小化了，而用VB做的，点了显示左面，虽然看不到窗口，但窗口却没最小化，这时依然能截图监视程序运行状况。