{"id":179,"date":"2007-05-12T16:42:05","date_gmt":"2007-05-12T14:42:05","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/general-stop-a-loop-with-alts-but-ignore-any-other-user-action\/"},"modified":"2007-05-12T16:42:07","modified_gmt":"2007-05-12T14:42:07","slug":"general-stop-a-loop-with-alts-but-ignore-any-other-user-action","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/general-stop-a-loop-with-alts-but-ignore-any-other-user-action\/","title":{"rendered":"General: Stop a Loop with ALT+S but ignore any other User action"},"content":{"rendered":"

Sanford Aranoff wrote:
\n> I would like to prevent any user action during the loop except for a
\n> menu Alt S, which would stop the loop.
\n> Considering your comment, what would you suggest?
\n<\/em><\/p>\n

Its 1:00 AM now and this is as close as I get for the moment.
\nThere is one thing bugging me. Its not working completely as
\nyou’ve asked. For the moment it will stop when Alt+S is pressed,
\nbut it will not fire your menu. This is handled differently (other
\nmessage) and can’t remember at the moment which.<\/p>\n

The emergency solution will let the user think that his
\nkeyboard is becoming bad and he\/she will try to press
\nAlt+S again (a little harder) and then it will be handled
\nnormal again since the loop is stopped <\/p>\n

Hope this help you on the way.
\n– Pieter
\n
\n[code lang=”delphi”]{——————————————————————————}
\n{ Params : = The time in msec. program flow will be’suspended’.
\n{ Returns : none.
\n{ Descript: Wait for about msec.
\n{——————————————————————————}
\nprocedure Delay(DelayTime: word);
\nvar
\n StopTime : TDateTime;
\n Sec : word;
\n Msec : word;
\n OkPassIt : boolean;
\n Msg : TMsg;
\nbegin
\n if DelayTime < 2 then Exit;\n\n Sec := DelayTime div 1000;\n MSec := DelayTime mod 1000;\n\n StopTime := Now + EncodeTime( 0, 0, Sec, MSec );\n repeat\n OkPassIt := False;\n if PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE) then\n with Msg do\n case Message of\n WM_LBUTTONDOWN,\n WM_MBUTTONDOWN,\n WM_RBUTTONDOWN,\n WM_KEYFIRST..WM_KEYLAST:\n if (Message = WM_SYSKEYDOWN) and (wParam = 83) then {Alt+S}\n begin\n StopTime := Now; \/\/ Emergency solution\n OkPassIt := True;\n end;\n else\n OkPassIt := True;\n end;\n\n if OkPassIt then\n Application.HandleMessage\n else\n PeekMessage(Msg, 0, 0, 0, PM_REMOVE); \/\/ Eat it\n until (Now > StopTime);
\nend;<\/p>\n

[\/code]
\n– – – – – – – – – – –<\/p>\n

Next SendMessages does work on my PC and ‘presses’ the
\nAlt+S outside the loop. I’ve got these codes by watching
\nWinSight32 (from Delphi). If this doen’t work for you, you
\nmight be better of in the b.p.d.winapi for the question “how
\nto press the Alt+S (menu) key from code”.
\nAlso do a search at www.deja.com maybe somebody else
\ndid solve your problem before.<\/p>\n

HTH
\n– Pieter<\/p>\n

[code lang=”delphi”]procedure Delay(DelayTime: word);
\nvar
\n StopTime : TDateTime;
\n Sec : word;
\n Msec : word;
\n AltS : boolean;
\n OkPassIt : boolean;
\n Msg : TMsg;
\nbegin
\n Sec := DelayTime div 1000;
\n MSec := DelayTime mod 1000;<\/p>\n

AltS := False;
\n StopTime := Now + EncodeTime( 0, 0, Sec, MSec );
\n repeat
\n OkPassIt := False;
\n if PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE) then
\n with Msg do
\n case Message of
\n WM_LBUTTONDOWN,
\n WM_MBUTTONDOWN,
\n WM_RBUTTONDOWN,
\n WM_KEYFIRST..WM_KEYLAST:
\n if (Message = WM_SYSKEYDOWN) and (wParam = 83) then {Alt+S}
\n AltS := True;
\n else
\n OkPassIt := True;
\n end;<\/p>\n

if OkPassIt then
\n Application.HandleMessage
\n else
\n PeekMessage(Msg, 0, 0, 0, PM_REMOVE); \/\/ Eat it
\n until (Now > StopTime) or AltS;<\/p>\n

if AltS then
\n begin
\n SendMessage(Application.Handle, WM_SYSKEYDOWN, $12, $20380001); \/\/ alt
\nkey
\n SendMessage(Application.Handle, WM_SYSKEYDOWN, $53, $201F0001); \/\/ + S
\n SendMessage(Application.Handle, WM_SYSCHAR, $73, $201F0001); \/\/
\ngenerated by dispatch
\n SendMessage(Application.Handle, WM_SYSKEYUP, $53, $F01F0001); \/\/ S up
\n SendMessage(Application.Handle, WM_KEYUP, $12, $F0380001); \/\/ aalt
\nup
\n end;
\nend;
\n[\/code]
\n– – – – – –<\/p>\n

One other message you might want to ‘eat’ is…
\n WM_LBUTTONDBLCLK,<\/p>\n

[tags]Delphi, Misc[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

Sanford Aranoff wrote: > I would like to prevent any user action during the loop except for a > menu Alt S, which…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,107],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-2T","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/179"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=179"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/179\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=179"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=179"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=179"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}