delphi窗体固定在桌面上

本文整理自网络，侵删。

 delphi窗体固定在桌面上

procedure WndProc(var Message: TMessage); override;
procedure FormCreate(Sender: TObject);
begin
windows.SetParent(Self.Handle,FindWindowEx(FindWindow('Progman',nil),0,'shelldll_defview',nil));//将窗口设置为屏幕的子窗口 
//以下显示桌面 
keybd_event(91,0,0,0); 
keybd_event(77,0,0,0); 
keybd_event(77,0,KEYEVENTF_KEYUP,0); 
keybd_event(91,0,KEYEVENTF_KEYUP,0);
end; 

相关阅读 >>

Delphi concat 字符串函数

如何访问局域网的access数据库

Delphi xe 下打开内存泄漏调试功能

Delphi 更改消息对话框中的按钮标题

Delphi 如何确定windows安装的语言

Delphi tms web core 实现下载

Delphi xe 获取android的路径信息

Delphi 计算加班时间工时的函数

Delphi 去掉twebbrowser的滚动条

Delphi android windows ios通用获取程序版本

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

转载请注明出处：木庄网络博客 » delphi窗体固定在桌面上