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 d10.x 并行库ppl编程之ttask

Delphi 用拼音首字符检索汉字的源代码

Delphi怎么实现一定范围内的随机数呢？

Delphi xe 提权代码

Delphi lastdelimiter：在字符串中查找选定的字符最后出现的位置

Delphi 控制iis，检测、增加、删除虚拟目录

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