VPF::Visible:=False главного окна чужого приложения

MastaSlash

Дата 17.6.2006, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 26.5.2006

Репутация: нет
Всего: нет

Подскажите какое сообщение нужно послать чужому приложению чтоб спрятать его главное окно ??? Если я правильно нашел, то WM_SHOWWINDOW.. если да то подскажите параметры

skyboy

Дата 17.6.2006, 18:17 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 2
Всего: 260

так там же в хелпе Microsoft SDK и параметры расписаны...

DemoCode

Дата 17.6.2006, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 1
Всего: 41

Код


ShowWindow(Handle,SW_HIDE)

Где Handle - это хэндл окна которое надо спрятать, его можно получить с помощью FindWindow

Добавлено @ 18:28
Если надо именно сообщением, то

Цитата

WM_SHOWWINDOW
fShow = (BOOL) wParam;      // show/hide flag
fnStatus = (int) lParam;         // status flag

--------------------

Жить стало лучше, жить стало веселей
© И.В. Сталин

MastaSlash

Дата 17.6.2006, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 26.5.2006

Репутация: нет
Всего: нет

Я пишу следующее

Код


h1:=FindWindow('TForm1',nil);
SendMessage(h1,WM_SHOWWINDOW,0,0);

но почему-то неработает ???

Rrader

Дата 20.6.2006, 07:08 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Код


ShowWindow(Wnd, SW_HIDE);

Цитата(MastaSlash @ 18.6.2006, 04:29

)

но почему-то неработает ???

Из хелпа:

Цитата

The WM_SHOWWINDOW message is not sent under the following circumstances:
· When a top-level, overlapped window is created with the WS_MAXIMIZE or WS_MINIMIZE style.
· When the SW_SHOWNORMAL flag is specified in the call to the ShowWindow function.

--------------------

Let's do this quickly!
Rest in peace, Vit!

smartov

Дата 20.6.2006, 11:32 (ссылка)

(нет голосов)

Загрузка ...

свой собственный

Профиль
Группа: Экс. модератор
Сообщений: 4225
Регистрация: 2.2.2006
Где: NJ

Репутация: нет
Всего: 259

Код


{
  FindWindowByTitle returns the handle of a window that
  contains a certain "WindowTitle".

  Function is Case SENSITIVE.
}

function FindWindowByTitle(WindowTitle: string): Hwnd;
var
  NextHandle: Hwnd;
  NextTitle: array[0..260] of char;
begin
  // Get the first window
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
  while NextHandle > 0 do
  begin
    // retrieve its text
    GetWindowText(NextHandle, NextTitle, 255);
    if Pos(WindowTitle, StrPas(NextTitle)) <> 0 then
    begin
      Result := NextHandle;
      Exit;
    end
    else
      // Get the next window
      NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
  end;
  Result := 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  target : HWND;
begin
 target := FindWindowByTitle('Notepad');
 ShowWindow(target, SW_SHOW);
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »