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 xe7实现获取程序是否已管理员模式运行以及运行的windows用户名

Delphi中建议使用的语句

Delphi 读取内存

Delphi中如何控制webbrowser滚动条

Delphi 获取外网ip的函数

Delphi 判断字符串是否相同

Delphi 分割文件合并文件的函数

Delphi下pos机控制钱箱,客显,打印机

Delphi adoconnection断线重连

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

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