[Кодер]

Уважаемые, почему не срабатывает следующий код?

Код:

var
  h: cardinal;
begin
  h := FindWindow(Edit1.Text, nil);
  ShowWindow(h,
    SW_MINIMIZE);
end;

[MultiVan]

Вместо cardinal пиши HWND

Код:

var
  h: HWND;
begin
  h := FindWindow(Edit1.Text, nil);
  ShowWindow(h,
    SW_MINIMIZE);
end;

[Кодер]

Ситуация та же. Компилируется, но результата нет.

[MultiVan]

Код:

var
  h: HWND;
begin
  h := FindWindow(nil, 'Form1');
  ShowWindow(h,
    SW_MINIMIZE);
end;

вот попробуй , Form1 это заголовок окна , ставишь там нужная окна , ищи в инете уроки про работы с окнами или если найду время сделаю для тебя урок ;-)

[Кодер]

Работает, благодарю.

[angvelem]

Не работает потому, что в Win используется PChar, в TEdit находится String. Перепиши так:

Код:

var
  h: HWND;
begin
  h := FindWindow(PChar(Edit1.Text), nil);
  ShowWindow(h, SW_MINIMIZE);
end;

[lmikle]

Все-равно не найдет
findChildWindow.

[angvelem]

А при чём тут дочернее окно? Судя по его коду , ТС ищет другую прогу, ну к примеру "Калькулятор".

[lmikle]

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

А при чём тут дочернее окно? Судя по его коду , ТС ищет другую прогу, ну к примеру "Калькулятор".

А, ну да, сорри, просмотрел

[Кодер]

Imikle прав, не компилится даже с PChar()

[lmikle]

Сообщение от Неподарок

Imikle прав, не компилится даже с PChar()

Вот так работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  h: cardinal;
begin
  h := FindWindow(nil, PChar('7-Zip File Manager'));
  if h > 0
    Then ShowWindow(h, SW_MINIMIZE)
    Else ShowMessage('Not found!');
end;

но это по заголовку, который может меняться.

[Pyro]

поиск по части заголовка и имени exe:
FindWindow777('opera') ;
FindWindow777('torrent', 'utorrent.exe') ;

PHP код:

uses psapi;
var
  FoundHandle: Cardinal;
  Match: string;
  exetofind: string;
function FindWindow777(TitlePart: string; exename: string = ''): Cardinal;
  function Enumka(h: hWnd; p: Pointer): BOOL; stdcall; var s1, s2: string;
    function GetModule(h: hWnd): string;
    var
      Module: string;
      shit1: Cardinal;

      function ProcessFileName(PID: DWORD): string;
      var
        Handle: THandle;
      begin
        Result := '';
        Handle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID);
        if Handle <> 0 then
          try
            SetLength(Result, MAX_PATH);
            begin
              if GetModuleFileNameEx(Handle, 0, PChar(Result), MAX_PATH) > 0 then
                SetLength(Result, StrLen(PChar(Result)))
              else
                Result := '';
            end
          finally
            CloseHandle(Handle);
          end;
      end;
    begin
      GetWindowThreadProcessId(h, shit1);
      result := ProcessFileName(shit1);
    end;
    function GetCaption(h: hWnd): string;
    var
      Caption: array[0..255] of char;
    begin
      FillChar(Caption, sizeof(Caption), 0);
      GetWindowText(h, Caption, 255);
      result := strpas(Caption);
    end;

  begin
    result := true;
    if Pos(LowerCase(Match), LowerCase(GetCaption(h))) > 0 then
      if exetofind = '' then
      begin
        FoundHandle := h;
        result := false;
      end else {begin
       s1 := GetModule(h);
       s2 := GetCaption(h) ;  }
      if exetofind = ExtractFileName(GetModule(h)) then
      begin
        FoundHandle := h;
        result := false;
      end;  {end; }
  end;
begin
  exetofind := exename;
  FoundHandle := INVALID_HANDLE_VALUE;
  Match := TitlePart;
  EnumWindows(@Enumka, 0);
  result := FoundHandle;
end; 


[Кодер]

Всем спасибо, было вкусно и полезно