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 idhttp读取网页重定向

Delphi 解决strtodatetime（）不是有效日期类型的问题

Delphi 使窗口透明，并透过透明的窗口操作下面的窗口

Delphi trimright 删除字符串右边的空格

Delphi 搜索字符串在流中的位置

Delphi pchar和array [0..255] of char的区别

Delphi固定窗口大小

Delphi searchrec.attr and fadirectory

Delphi 判断窗体是否创建存在

Delphi unknown picture file extension (.jpg) 错误提示

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