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 调试ios时出现 please specify exact device preset uuid

pascal 语言中的关键字及保留字

Delphi idftp 错误:socket error 10054 �c connection reset by peer -连接被重置

Delphi 汉字与区位码

Delphi app如何禁掉安卓锁屏

Delphi 在 api 函数中使用 pchar 参数的几种方法

Delphi 执行一个外部程序,当外部程序结束后言主程序立即响应

汇编数据宽度和字节序

Delphi中禁用和取消android应用睡眠

Delphi program name、process id、window handle、process handle 的转换函数

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...