delphi 让程序主窗口不响应“显示桌面”

本文整理自网络，侵删。

  让程序主窗口不响应“显示桌面”

procedure TForm1.FormCreate(Sender: TObject); 
begin 
with Application do 
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) and 
not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW); 
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE); 
end; 
 

相关阅读 >>

Delphi case of

Delphi 32位程序 out of memory 内存不足时解决办法之一

Delphi中使用内联变量(inline variables) 的5个理由

Delphi 10 seattle的android应用程序的主屏幕上创建快捷方式

Delphi idhttpserver接收http get请求解码问题

Delphi ios取设备唯一值

Delphi 开发中遇到的dll问题思考及解决方法

Delphi禁止在android上重复按下按钮

Delphi 的运算符重载

Delphi中unicode转中文

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 让程序主窗口不响应“显示桌面”