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; 
 

相关阅读 >>

windows7下使用Delphi7的方法

Delphi unix时间转换成Delphi时间

Delphi 不可移动的窗体

Delphi xe8 为image设置渐变效果

Delphi百度地图经纬度与地址互转

Delphi http 常见异常状态及Delphi idhttp 控件处理方式

Delphi 使richedit中的链接可以点击

Delphi webbrowser1 保存文档为 .mht

Delphi xe8中的firemonkey应用程序将文本复制到剪贴板

Delphi textfile utf8编码读写

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

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