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 memo中禁止汉字

Delphi strutils.reversestring - 翻转字符串

Delphi中使用ado连接带密码的access

Delphi xe5 unicodestring的由来

Delphi 极速字符串替换函数

Delphi 列举系统服务,停止启动所选服务

Delphi utf8处理单元

Delphi 数值小数点后不保留0

Delphi 遍历硬盘所有文件目录

Delphi adoconnection1连接mssql数据库方法

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

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