本文整理自网络,侵删。
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
Delphi idftp 错误:socket error 10054 �c connection reset by peer -连接被重置
Delphi 在 api 函数中使用 pchar 参数的几种方法
Delphi 执行一个外部程序,当外部程序结束后言主程序立即响应
Delphi program name、process id、window handle、process handle 的转换函数
更多相关阅读请进入《Delphi》频道 >>