怎样才能即使点击Windows 2000的显示桌面按钮程序也不会最小化!!!(200分)

  • 主题发起人 liuchffd
  • 开始时间
L

liuchffd

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样才能即使点击Windows 2000的显示桌面按钮程序也不会最小化!!!
 
没办法,定时还原窗口。:)
 
你在form的resize的事件中加入form1.state:=最大化。
快要下班了,没时间试,你可以试一下。
 
用钩子,截获点击桌面的消息,但是哪个消息我不知道,钩子的事情这里有好多,查一下
 
pls try:

SetWindowLong(application.handle,GWL_ExSTYLE,WS_EX_TOOLWINDOW);
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

add in formcreate event

Regards,
wonderxin
 
简单;下面这个窗口不被最小化,测试通过。
procedure Createparams(var params: TCreateParams); override;
...
procedure TForm1.Createparams(var params: TCreateParams);
begin
inherited CreateParams(Params);
with params do
begin
Style:=WS_POPUP or WS_BORDER;
ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_NOACTIVATE or WS_EX_WINDOWEDGE;
WndParent:=getDeskTopWindow;
end;
end;
 
顶部