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 tfdconnection只能取得50处理

Delphi 调出windows 系统时间设置对话框

Delphi 取当前目录下所有文件夹名和文件名

Delphi api: setwindowpos改变窗口的位置与状态

Delphi中判断某个文件是否已经打开

Delphi设置dbgrid每列自动居中

Delphi timer定时器 实现定时执行

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)

Delphi 获取剪切板图像

Delphi 获取网站验证码的图片

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

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