Развернуть Google Chrome и сделать его активным.

[atihiy2010]

Добрый день всем. Есть у меня такой вопросик, а именно как развернуть
и активировать свернутое окно хрома именно. У меня есть функция которая проверяет запущен ли процесс хрома. Вот она:

function processExists(exeFileName: string): Boolean;
var 
    ContinueLoop: BOOL;
    FSnapshotHandle: THandle; 
    FProcessEntry32: TProcessEntry32; 
begin 
    FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
    FProcessEntry32.dwSize := SizeOf(FProcessEntry32); 
    ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); 
    Result := False; 
    while Integer(ContinueLoop) <> 0 do 
    begin 
      if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = 
        UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = 
        UpperCase(ExeFileName))) then 
      begin 
        Result := True; 
      end; 
      ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); 
    end; 
    CloseHandle(FSnapshotHandle); 
end;

Соответственно делаю так

if not processExists('chrome.exe') then
begin
MessageDlg('Не запущен Chrome',mtError,[mbOK], 0);

Но если он все же запущен и свернут в панель задач, то мне надо его развернуть.

Нашел на просторах такой код для разворачивания Excel, но он ищет окно по содержимому тексту в названии окна:

procedure TForm1.Button1Click(Sender: TObject);

var h:hwnd;p:pchar;mk:Cardinal;
begin
 h:=GetWindow(GetForegroundWindow,GW_HWNDFIRST);
 getmem(p,2000);
 GetWindowText(h,p,mk);
 while (pos('Excel',p)=0)and(h<>0) do begin
  h:=GetWindow(h,GW_HWNDNEXT);
  GetWindowText(h,p,mk);
 end;
 Label1.caption:=inttostr(h)+' '+p;
 If (h <> 0 )then BringWindowToTop(h);
 ShowWindow(h,SW_SHOWMAXIMIZED);
end;

А вот как бы связать и сделать например чтоб искалось окно не по содержимому в названии окна (ведь я незнаю какая страничка например открыта сейчас в браузере) а по названию процесса, тоесть: Нашло процесс chrome.exe, и сделало с ним все тоже самое что и с Excel примером. Если можна, поподробнее, я еще только учусь. Заранее спасибо огромное.

[min@y™]

Нахрена всё это делать через процессы, когда есть готовые оконные функции для этого?
FindWindow(), IsIconic(), SetWindowPos(), ShowWindow(), SetForegroundWindow() и т.д.

К тому же, хром плодит отдельные процессы для каждой своей вкладки.

[Alex11223]

Зачем? https://www.gunsmoker.ru/2008/10/x-y-z.html

Если для автоматизации каких-то действий на сайте, то возьмите Selenium (и ЯП где он доступен). Ну или просто HTTP запросы отправлять если сайт не сильно сложный.

Сообщение от atihiy2010

а по названию процесса

У хрома не 1 процесс.

Task Manager 2018-04-04 10.48.59.png

И даже если он "закрыт" не факт, что не будет процессов.

[p51x]

Более того у хрома есть процесс для ГПУ и он никак активным окном не станет.

[atihiy2010]

а нельзя симитировать тупо нажатие мышки на окно хрома в панели задач. оно ж сразу и станет активным. Это первое.
Во-вторых, обьясняю для чего мне это все. Я сделал програмку которая типа сохраняет ссылки со скриншотом сайта. Так вот у меня все готово, кроме того ньюанса, что если например нажата кнопка на клавиатуре и хром таки запущен,но не развернут, то развернуть его а тогда делать все то что мне нужно.

[atihiy2010]

Сообщение от min@y™

Нахрена всё это делать через процессы, когда есть готовые оконные функции для этого?
FindWindow(), IsIconic(), SetWindowPos(), ShowWindow(), SetForegroundWindow() и т.д.

К тому же, хром плодит отдельные процессы для каждой своей вкладки.

можно пример использования этих функций? желательно именно с хромом.
а вот по поводу кучи процессов я еще не думал, так же не думал по поводу того что делать если запущено несколько окон с хромом. Ну тут же задам вопрос, может проще будет хотябы проверить или активно сейчас хоть какое-то окно с хромом, и если да то супер если нет то Exit. Как-то так. Это бы меня спасло тоже

[Alex11223]

Сообщение от atihiy2010

Я сделал програмку которая типа сохраняет ссылки со скриншотом сайта. Так вот у меня все готово, кроме того ньюанса, что если например нажата кнопка на клавиатуре и хром таки запущен,но не развернут, то развернуть его а тогда делать все то что мне нужно.

Так вам ж все равно сайт открыть надо? Вот при открытии (ShellExecute и т.п.) он и развернется.

Ну и да, с Selenium это делается за 5 минут. Или хотя бы PhantomJs. Ну или хоть CEF (TChromium) возьмите в своем дельфи.

[min@y™]

Сообщение от atihiy2010

можно пример использования этих функций? желательно именно с хромом.

И чо мне теперь, хром себе поставить? Оно мне надо?
А примеров с оконными функциями в интернетах - овер9000 штук. Вот, например, это.

[atihiy2010]

Что такое Selenium, PhantomJs, CEF ??? можно пример как это сделать? есть форма, на ней кнопка. Нажал на кнопку и хром развернулся. Можно так?
Понимаю что напрягаю, но говорю же я не эксперт. А сама прога почти готова, доделаю - дам потестить))) Но никак немогу избавиться так сказать от такого исключения. Я бы хоть просто выдавал сообщение что хром не активен и все. А как это отловить незнаю.

[atihiy2010]

Сообщение от min@y™

И чо мне теперь, хром себе поставить? Оно мне надо?
А примеров с оконными функциями в интернетах - овер9000 штук. Вот, например, это.

Я понимаю, можно с любым другим приложением, чтоб я по аналогии сделал,но чтоб работало.