VPF::Закрыть приложения. - Форум программистов

Programer_Diman

Дата 15.10.2004, 10:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Закрыть все приложения приложения кроме моего.

~FoX~

Дата 15.10.2004, 15:02 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Ловишь Хэндл всех окон у которых название отличается от твоего и передаешь им WM_CLOSE по моему.

А на фига?

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

…множественность никогда не следует полагать без необходимости…

~FoX~

Дата 15.10.2004, 15:12 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Код

var
  H: HWND;
begin
  H := FindWindow(nil, 'c:\');
  PostMessage(h, WM_close, 0, 0)
end;

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

…множественность никогда не следует полагать без необходимости…

decoder

Дата 15.10.2004, 15:34 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 204
Регистрация: 18.5.2004
Где: Харьков(хохол, к сожалению)

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

Не, фокс, вроде ж не просят закрыть конкретное приложение. Чёбы ваще всё закрыть, надобно такое написать:

Код


...
EnumWindows(@EnumWnd, False);
...
procedure EnumWnd(Wnd: hWnd); stdcall;
begin
  PostMessage(Wnd, WM_DESTROY{WM_CLOSE}, 0, 0);
end;

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

Молчать, я вас спрашиваю!

Akella

Дата 16.10.2004, 09:19 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

ищеш все окна, поочередно загоняя имя окна в переменную, сравниваешь содержимое переменной с именем своего главного окна (или с именем приложения) если совпадает, попускаешь
Добавлено @ 09:24

Код

Function GetAllWin:Bool;//поиск всех окон
VAR
  Wnd : hWnd;
  buff: ARRAY [0..127] OF Char;
  StringList1:TStringList;
  vAllText:String;
begin
  Result:=False;
  StringList1:=TStringList.Create;
  StringList1.Clear;
  Wnd := GetWindow(Handle, gw_HWndFirst);
  WHILE Wnd <> 0 DO BEGIN
    IF (Wnd <> Application.Handle) AND //Hе показываем: Собственное окно
    (IsWindowVisible(Wnd)) AND //Hе показываем: Hевидимые окна
     (GetWindowText(Wnd, buff, sizeof(buff)) <> 0)
    THEN BEGIN
      GetWindowText(Wnd, buff, sizeof(buff));
      StringList1.Add(StrPas(buff));
    END;//IF (Wnd <> Application.Handle)
   Wnd := GetWindow(Wnd, gw_hWndNext);
  END;//While
  vAllText:=StringList1.Text;
  if Pos('Солитер', vAllText)<>0 then begin
    Result:=True;
  end;//if Pos('Расклад', vAllText)<>0
  FreeAndNil(StringList1)
end;

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