Delphi 如何确定活动桌面是否已启用


本文整理自网络,侵删。

 
Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;
 
 type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
   function IsActiveDeskTopOn:Boolean;
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 function TForm1.IsActiveDeskTopOn:Boolean;
 var
   Hd: HWND;
 begin
   Result := False;
   Hd := FindWindow( Pchar('Progman'), nil);
   Hd := FindWindowEx( hd, 0, 'SHELLDLL_DefView', nil);
   Hd := FindWindowEx( hd, 0, 'Internet Explorer_Server', nil);
   if hd = 0 then
     Result := False
   else
     Result := True;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
 if IsActiveDeskTopOn then
  showmessage('Active Desktop is ON')
 else
  showmessage('Active Desktop is OFF');
 end;
 
 end.
 

相关阅读 >>

Delphi 创建进程时指定其父进程

Delphi changefileext 更改文件的后缀扩展名

Delphi windows 编程[19] - 改变菜单项的状态: getmenustate、enablemenuitem

Delphi用多媒体库 bass.dll 播放 mp3 - 打开、播放、暂停、停止

Delphi 配置驱动程序(firedac)

Delphi 显示windows断开网络驱动器对话框

Delphi xe7 up1 调用android振动功能

Delphi 通过memorystream 传递image1数据

Delphi代码禁止窗体最大化

Delphi 得到执行程序的当前所在完整路径

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



打赏

取消

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

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

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

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

评论

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