本文整理自网络,侵删。
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 changefileext 更改文件的后缀扩展名
Delphi windows 编程[19] - 改变菜单项的状态: getmenustate、enablemenuitem
Delphi用多媒体库 bass.dll 播放 mp3 - 打开、播放、暂停、停止
Delphi 通过memorystream 传递image1数据
更多相关阅读请进入《Delphi》频道 >>