[Кодер]

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

Код:

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]

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