[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;

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