Проблемы и решения

[Yegor]

Я делаю так:

Перед загрузкой каждого нового окна, когда я точно знаю что никакое новое окно не должно быть в процессе загрузки я вызываю функцию:

FindAndCloseFrostUpdateWindow(GetDesktopWindow);


procedure FindAndCloseFrostUpdateWindow(parentHandle: HWND);
var
  winClass: string;
  winHandle: HWND;
  pID, hProc: cardinal;
begin
  winHandle:= GetWindow(parentHandle, GW_CHILD);
  repeat
    winClass:= GetWindowClassMy(winHandle);
    if (winClass = 'frostsecurity_update_window')then
    begin
      if IsWindowVisible(winHandle)then
      begin
        GetWindowThreadProcessId(winHandle, pID);
        hProc:= OpenProcess(PROCESS_TERMINATE, false, pID);
        TerminateProcess(hProc, 0);
        CloseHandle(hProc);
      end;
    end;
    winHandle:= GetWindow(winHandle, GW_HWNDNEXT);
  until winHandle = 0;
end;