本文整理自网络,侵删。
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 打造mygetprocaddress函数(Delphi源码)
Delphi 判断uefi与 legacy bios启动模式
Delphi xe5 程序中标识win max android ios程序代码分别实现
Delphi snowflake一秒可生成500万id的分布式自增id算法―雪花算法
更多相关阅读请进入《Delphi》频道 >>