Как закрыть текущую вкладку браузера из настольного приложения?

Question

Я занимаюсь разработкой системы, состоящей из программы, которая запускается на рабочем столе (Windows).

Каждую минуту определяется, является ли активная программа браузером, и в этом случае проверяется, находится ли URL активной вкладки в "черном списке"

В этом случае я хотел бы закрыть текущую вкладку браузера. Что я сейчас делаю, так это убиваю процесс браузера, а это значит, что вкладки с URL-адресами, которых нет в черном списке, тоже были закрыты.

Для определения URL активной вкладки, я использую решение из Как получить URL из Chrome с помощью Delphi

Я использую Delphi 7, но решение на любом языке будет оценено.

Answer 1

Я использую эту методологию, чтобы закрыть вкладки браузера. Как известно, Chrome и Iexplorer используют разные процессы для каждой вкладки. Я нахожу имя процесса и убиваю их. В следующем коде убивает весь процесс в памяти для Chrome или iexplore или что-либо, что вы хотите. Не забудьте добавить модуль winapi.tlhelp32 в вашу строку использования.

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  // find all process and kill them all one by one    
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
                        OpenProcess(PROCESS_TERMINATE,
                                    BOOL(0),
                                    FProcessEntry32.th32ProcessID),
                                    0));
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

Answer 2

Используйте следующий процесс:

• Начать запись макроса
• Открыть браузер
• Нажмите сочетание клавиш, чтобы закрыть вкладку
• Прекратить запись макроса
• Создать ярлык для макроса