VPF::DisableTaskWindows, EnableTaskWindows - Форум программистов

Delphist

Дата 14.11.2008, 16:18 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

У меня возникла следующая проблема: для того чтобы сделать окно модальным я использую DisableTaskWindows(0) (ShowModal - не использую т.к. вызов данной ф-ции приведет к тому, что ниже расположенный код не будет выполняться пока я не закрою модальное окно).
Зачем мне нужно вообще модальное окно, объясняю на примере:

Код


{TMySplash - это окно, которое выводиться на время выполнения сложной процедуры LongProc;
  при чем это окно имеет кнопку "Отмена", которое позволяет отменить выполнение долгой LongProc}

TMySplash = class(TForm)
....
end;

procedure foo;
var
  pWndList: Pointer;
  MySplash: TMySplash;

  procedure LongProc;
  begin
    ...
    //DoAbort = True, если нажата кнопка "Отмена" в MySplash
    if MySplash.DoAbort then
      Exit;
    ...
  end;


begin

  pWndList := DisableTaskWindows(0);
  MySplash := TMySplash.Create;
  try
    MySplash.Show;

    //здесь происходит вызов процедуры, которая велика по времени выполнении
    LongProc;
    ...
  finally
    MySplash.Free;
    EnableTaskWindows(pWndList );
  end;
end;

Основная проблема в том, что, когда я нажимаю кнопку "Отмена" в MySplash, то фокус с моей программы перескакивает на другое приложение. Из-за чего собственно возникает данная проблема.

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

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

MetalFan

Дата 14.11.2008, 19:40 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

может както так попробовать:

Код


...
  MySplash := TMySplash.Create;
  pWndList := DisableTaskWindows(MySplash.Handle);
...

Это сообщение отредактировал(а) MetalFan - 14.11.2008, 19:42

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

There are always someone smarter than you...

Delphist

Дата 17.11.2008, 10:15 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

Цитата(MetalFan @ 14.11.2008, 20:40

)

может както так попробовать:

Попробовал, не помагло

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

Delphist

Дата 12.1.2011, 16:03 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

Цитата(Delphist @ 17.11.2008, 11:15

)

Попробовал, не помагло

нашел http://forum.sources.ru/index.php?showtopic=323064&hl=

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

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