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

[min@y™]

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

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

Я понимаю, халявы хочется и всё такое. Но...

11-57-08.png

[p51x]

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

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

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

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

10 чукч не читающих

[Alex11223]

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

Что такое Selenium, PhantomJs, CEF ???

Спросили б еще что такое гугл.

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

можно пример как это сделать?

[Filka]

uses
  TlHelp32;

type
  TEnumData = record
    hWnd: HWND;
    ProcessID: DWORD;
  end;

function EnumProc(hWnd: HWND; var EnumData: TEnumData): BOOL; stdcall;
var
  PID: DWORD;
begin
  Result := True;
  if IsWindowVisible(hWnd) then
  begin
    GetWindowThreadProcessID(hWnd, @PID);
    if PID = EnumData.ProcessID then
    begin
      EnumData.hWnd := hWnd;
      Result := False;
    end;
  end;
end;

function WindowFromProcessID(PID: DWORD): HWND;
var
  EnumData: TEnumData;
begin
  EnumData.ProcessID := PID;
  EnumData.hWnd := 0;
  EnumWindows(@EnumProc, LPARAM(@EnumData));
  Result := EnumData.hWnd;
end;

function GetProcessID(const ProcName: string): DWORD;
var
  ProcessSnap: THandle;
  PE32: TProcessEntry32;
begin
  Result := 0;
  ProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if ProcessSnap <> INVALID_HANDLE_VALUE then
  begin
    PE32.dwSize := SizeOf(TProcessEntry32);
    if Process32First(ProcessSnap, PE32) then
      repeat
        if UpperCase(PE32.szExeFile) = UpperCase(ProcName) then
        begin
          Result := PE32.th32ProcessID;
          Break;
        end;
      until not Process32Next(ProcessSnap, PE32);
    CloseHandle(ProcessSnap);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  H: HWND;
begin
  H := WindowFromProcessID(GetProcessID('chrome.exe'));
  if (H <> 0) {and IsIconic(H)} then
  begin
    ShowWindow(H, SW_NORMAL);
    SetForegroundWindow(H);
  end;
end;

[atihiy2010]

получился такой код, но ругается вначале, где TEnumData = record говорит "Ожидается : но найдено ="

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TlHelp32, StdCtrls;

type

  TForm1 = class(TForm)
  TEnumData = record
    Button1: TButton;
    procedure Button1Click(Sender: TObject);


    hWnd: HWND;
    ProcessID: DWORD;
  end;

  private
    { Private declarations }
  public
    { Public declarations }

    function EnumProc(hWnd: HWND; var EnumData: TEnumData): BOOL; stdcall;
var
  PID: DWORD;
begin
  Result := True;
  if IsWindowVisible(hWnd) then
  begin
    GetWindowThreadProcessID(hWnd, @PID);
    if PID = EnumData.ProcessID then
    begin
      EnumData.hWnd := hWnd;
      Result := False;
    end;
  end;
end;

function WindowFromProcessID(PID: DWORD): HWND;
var
  EnumData: TEnumData;
begin
  EnumData.ProcessID := PID;
  EnumData.hWnd := 0;
  EnumWindows(@EnumProc, LPARAM(@EnumData));
  Result := EnumData.hWnd;
end;

function GetProcessID(const ProcName: string): DWORD;
var
  ProcessSnap: THandle;
  PE32: TProcessEntry32;
begin
  Result := 0;
  ProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if ProcessSnap <> INVALID_HANDLE_VALUE then
  begin
    PE32.dwSize := SizeOf(TProcessEntry32);
    if Process32First(ProcessSnap, PE32) then
      repeat
        if UpperCase(PE32.szExeFile) = UpperCase(ProcName) then
        begin
          Result := PE32.th32ProcessID;
          Break;
        end;
      until not Process32Next(ProcessSnap, PE32);
    CloseHandle(ProcessSnap);
  end;
end;

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  H: HWND;
begin
  H := WindowFromProcessID(GetProcessID('chrome.exe'));
  if (H <> 0) {and IsIconic(H)} then
  begin
    ShowWindow(H, SW_NORMAL);
    SetForegroundWindow(H);
  end;

end.

[atihiy2010]

Может я что не туда вставил?

[Alex11223]

Потому что надо изучить хоть основы языка, а не тупо копипастить.

Смотрите что такое классы и какой у них синтаксис.

[min@y™]

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

Может я что не туда вставил?

Мальчик, немедленно отойди от компьютера!
И больше не подходи.

[atihiy2010]

Ну вот... я же говорил, что я не профи.Зачем сразу смеяться... По спешке не туда скопипастил всё.

[atihiy2010]

Все получилось, спасибо огромное всем за подсказки.