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 调试tms web core应用

Delphi 计算一个字符串在另一个字符串中出现的次数

Delphi 调用dos nbtstat 并获得结果

Delphi禁止在android上重复按下按钮

Delphi 阿里云发送短信的Delphi单元

Delphi tnotification android通知

Delphi package

Delphi 验证ip地址

Delphi xe5 unicodestring的由来

Delphi字符串隐藏一法

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

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