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 中判断一个字符是中文的方法

Delphi 10.2 新特性之―tfdbatchmovejsonwriter

Delphi tfilestream 逐行读取文本

Delphi代码获取网卡物理地址三种方法

Delphi 打开android应用信息

Delphi xe5 手机应用开发经验技巧

Delphi学习sql语句 - insert、update、delete

Delphi 利用createservice写与桌面交互的win32服务

Delphi监视进程并结束进程

Delphi xe安装2010版控件

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

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