Приостановка программы

[Hintman]

Пишу на Delphi программу,
выполняющую очень долгий цикл repeat...until.

Подскажите, как сделать, чтобы при нажатии, скажем,
клавиши <Esc> выдавалось MessageDialog() с вопросом:
"Приостановить работу программы"?

А вначале я хотел чтобы можно было прервать работу программы горячей клавишей.
Сделал, как написано здесь:
http://www.excode.ru/art3997p7.html

Но программа не всегда реагирует на событие WM_HOTKEY,
наверное, управление не успевает передаваться процедуре WMHotkey.

Т.е. программа реагирует на горячую клавишу, когда цикл не запущен,
а запускаешь цикл - не реагирует.
Application.ProcessMessages и Application.HandleMessage внутри цикла не помогает.

Может не туда вставляю? Как выйти из положения? Заранее благодарен.

[bphoenix]

а почему не использовать класс TThread? там всё просто:

type
TMyThread = class(TThread)
private
protected
procedure Execute; override;
public
end;

implementation

procedure TMyThread.Execute;
begin
// здесь твой цикл repeat...until:
repeat
if Terminated then Break;
...
until <условие>;
end;


когда нужно будет приостановить работу потока используй TMyThread.Suspend. Для возобновления выполнения -- TMyThread.Resume.

[Роман Радер]

попробуй во время выполнения цикла проверять на нажатие кнопки.
GetKeyState(VK_ESCAPE)

[Hintman]

GetKeyState(VK_ESCAPE) - работает!

if GetKeyState(VK_ESCAPE)<0 then begin
if MessageDlg('Приостановить работу?',mtConfirmation,[mbYes, mbNo],0)=mrYes
then begin
ShowMessage('Количество циклов: '+IntToStr(i));
Exit;
end;
end
else
Application.ProcessMessages;

Но! Опять работает не всегда.
Видимо, программа настолько подгружает ОС, что обработка не срабатывает.
Нужно быстро нажать раз 5 <Esc>, чтобы выдалось предупреждение.

Ну, хоть как-то, но работает, не подвисает
Хотя все-таки интересно узнать, как добиться однократного нажатия клавиши.

[Hintman]

Сообщение от bphoenix

а почему не использовать класс TThread?
Когда нужно будет приостановить работу потока используй TMyThread.Suspend.
Для возобновления выполнения -- MyThread.Resume.

Да вопрос-то не в том, как приостановить работу (Suspend),
а в том - когда (когда нажат <Esc> или горячая клавиша)!

Но все равно спасибо за помощь, узнал кое-что о классе TThread,
глядишь - пригодится!

[bphoenix]

А я бы сказал, что дело в понимании применения класса TThread
Просто весь код, выполняющийся классом TThread, выполняется параллельно главному потоку приложения, а это значит, что сообщения, приходящие к твоим хоткеям не будут терятся из-за недостаточного выделения процессорного времени потоку, выполняющему обработку оконных сообщений.

[Hintman]

Вот как? Попробую! Спасибо!!!