Author: Jonas Bilinkevicius 


How to determine if the Active Desktop is enabled

Answer:

1   function IsActiveDeskTopOn: Boolean;
2   var
3     Hd: HWND;
4   begin
5     Result := False;
6     Hd := FindWindow(Pchar('Progman'), nil);
7     Hd := FindWindowEx(hd, 0, 'SHELLDLL_DefView', nil);
8     Hd := FindWindowEx(hd, 0, 'Internet Explorer_Server', nil);
9     if hd = 0 then
10      Result := False
11    else
12      Result := True;
13  end;