прога виснет из-за goto

[tred]

Здравствуйте, у меня прога виснет из-за этой процедуры . Если закоментировать оператор goto тогда работает.


procedure TForm1.WM_HotKeyHandler (var Message: TMessage);
var
idHotKey: integer;
fuModifiers: word;
uVirtKey: word;
label
m;
begin

idHotkey:= Message.wParam;
fuModifiers:= LOWORD(Message.lParam);
uVirtKey:= HIWORD(Message.lParam);

i f (fuModifiers = MOD_ALT) AND (uVirtKey = VK_F10) then
caption:='альт+ф10 нажата';
m:
sleep(2000);
keybd_event(Ord('K'), 0, 0, 0);
sleep(500);
keybd_event(Ord('k'), 0, KEYEVENTF_KEYUP, 0);
sleep(500);
keybd_event(Ord('K'), 0, 0, 0);
sleep(500);
keybd_event(Ord('k'), 0, KEYEVENTF_KEYUP, 0);
goto m;
inherited;
end;

[_-Re@l-_]

Не много не понятно, что вы хотите от goto. Если там одно действие sleep(500), то как бы sleep - это зависание компьютера на некоторое время.
И ещё: объявление лэйблов, как правило, происходит до var'а.

[tred]

Сообщение от _-Re@l-_

Не много не понятно, что вы хотите от goto. Если там одно действие sleep(500), то как бы sleep - это зависание компьютера на некоторое время.
И ещё: объявление лэйблов, как правило, происходит до var'а.

я хочу чтобы этот цикл повторялся до наступления какого либо события но после запуска прога не реагирует ни на какие события приходится выключать через диспетчер задач

[_-Re@l-_]

Так используйте не лэйблы, а циклы. До наступления какого события вы хотите повторять?

[tred]

Сообщение от _-Re@l-_

Так используйте не лэйблы, а циклы. До наступления какого события вы хотите повторять?

вот кнопка с отменой предыдущего цикла но она невидна после того как горячие клавиши нажаты


procedure TForm1.Button2Click(Sender: TObject);
begin
UnregisterHotKey(handle, keyid);
GlobalDeleteAtom(keyid);
caption:='ловушка отключена';

end;

убрал слип так вобще весь компьютер повис
мне кажется буфер клавиатуры переполняется, может есть какаянибудь функция для его очистки

[bag]

Попробуй доработать программу, вставив в нее команду Application.ProcessMessages():

procedure TForm1.WM_HotKeyHandler (var Message: TMessage);
var
idHotKey: integer;
fuModifiers: word;
uVirtKey: word;
label
m;
begin

idHotkey:= Message.wParam;
fuModifiers:= LOWORD(Message.lParam);
uVirtKey:= HIWORD(Message.lParam);

i f (fuModifiers = MOD_ALT) AND (uVirtKey = VK_F10) then
caption:='альт+ф10 нажата';
m:
sleep(2000);
keybd_event(Ord('K'), 0, 0, 0);
sleep(500);
keybd_event(Ord('k'), 0, KEYEVENTF_KEYUP, 0);
sleep(500);
keybd_event(Ord('K'), 0, 0, 0);
sleep(500);
keybd_event(Ord('k'), 0, KEYEVENTF_KEYUP, 0);
Application.ProcessMessages();    // !!!
goto m;
inherited;
end;

Работает?

[bag]

Дело в том, что Windows ждет пока накопятся задачи в очереди а не выполняет их сразу, Application.ProcessMessages() заставляет выполнить все задачи которые накопились в данный момент. Более подробно смотри здесь: http://www.delphisources.ru/pages/fa...smessages.html

[DeKot]

Команда перехода (в данном случае безусловнрго) должна применяться по какому либо событию или условию, которое затем должно измениться. А здесь пример классического бесконечного зацикливания.
Как пример простенький код

label  metka;
var count: integer;
begin
  count:= 0; // нач. знач. счетчика = 0
  metka: Inc(count); // увеличиваем значение счетчика
  if count < 101 then GOTO metka; // проверяем счетчик и если значение не достигло 100 повторяем процедуру увеличения знач. счетчика
  < продолжаем выполнять код программы >
end;

Естественно, это не корректный стиль кода, так как все это можно организовать в обычном цикле While ... do.
А пример показан для правильного применения оператора Goto.
Добавлю, что оператор Goto обычно применяется, когда требуется организовать выход из большого количества вложенных циклов или вложенных условных операторов вида if ...then

[tred]

всем спасибо получилось )) с оператором Application.ProcessMessages();