Как проверить, включён ли ActiveDesktop

function IsActiveDeskTopOn: Boolean;
var
  h: hWnd;
begin
  h := FindWindow("Progman", nil);
  h := FindWindowEx(h, 0, "SHELLDLL_DefView", nil);
  h := FindWindowEx(h, 0, "Internet Explorer_Server", nil);
  Result := h <> 0;
end;

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как проверить, включён ли ActiveDesktop", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!