钩子函数里的 HC_SYSMODALOFF 是什么意思，delphi没有相关帮助(10分)

seeyouknowme · 2003-12-05

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; Button4: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; EventArr:array[0..1000]of EVENTMSG; EventLog:Integer; PlayLog:Integer; hHook,hPlay:Integer; recOK:Integer; canPlay:Integer; bDelay:Bool; implementation {typedef struct tagEVENTMSG {    // em       UINT  message;     UINT  paramL;     UINT  paramH;     DWORD time;     HWND  hwnd; }// EVENTMSG;} {$R *.DFM} Function PlayProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; begin canPlay:=1; Result:=0; if iCode < 0 then //必须将消息传递到消息链的下一个接受单元    Result := CallNextHookEx(hPlay,iCode,wParam,lParam) else if iCode = HC_SYSMODALON then    canPlay:=0 else if iCode = HC_SYSMODALOFF then    canPlay:=1 else if ((canPlay =1 )and(iCode=HC_GETNEXT)) then    begin      if bDelay then         begin           bDelay:=False;           Result:=50;         end;       pEventMSG(lParam)^:=EventArr[PlayLog];     end else if ((canPlay = 1)and(iCode = HC_SKIP))then     begin       bDelay := True;       PlayLog:=PlayLog+1;     end; if PlayLog>=EventLog then     UNHookWindowsHookEx(hPlay); end; function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; begin     recOK:=1;     Result:=0;     if iCode < 0 then         Result := CallNextHookEx(hHook,iCode,wParam,lParam)     //执行当前钩子，     else if iCode = HC_SYSMODALON then         recOK:=0     else if iCode = HC_SYSMODALOFF then         recOK:=1     else if ((recOK>0) and (iCode = HC_ACTION)) then      begin         EventArr[EventLog]:=pEventMSG(lParam)^;         EventLog:=EventLog+1;         if EventLog >=1000 then             begin               UnHookWindowsHookEx(hHook);             end;     end; end; procedure TForm1.FormCreate(Sender: TObject); begin     Button1.Caption:='纪录';     Button2.Caption:='停止';     Button3.Caption:='回放';     Button4.Caption:='范例';     //Button2.Enabled:=False;     //Button3.Enabled:=False; end; procedure TForm1.Button1Click(Sender: TObject); begin     EventLog:=0;     //建立键盘鼠标操作消息纪录链     hHook:=SetwindowsHookEx(WH_JOURNALRECORD,HookProc,HInstance,0);     Button2.Enabled:=True;     Button1.Enabled:=False; end; procedure TForm1.Button2Click(Sender: TObject); begin       UnHookWindowsHookEx(hHook);   //停止释放钩子       hHook:=0; //       Button1.Enabled:=True;       Button2.Enabled:=False;       Button3.Enabled:=True; end; procedure TForm1.Button3Click(Sender: TObject); begin PlayLog:=0; //建立键盘鼠标操作消息纪录回放链 hPlay:=SetwindowsHookEx(WH_JOURNALPLAYBACK,PlayProc,HInstance,0); Button3.Enabled:=False; {HHOOK SetWindowsHookEx(     int idHook, // type of hook to install  钩子类型比如这里的WH_journalplayback,就是回放存储的信息过程     HOOKPROC lpfn, // address of hook procedure     钩子处理过程，hookProc 是一个回调过程，需要自己写，这里是指playpro过程     HINSTANCE hMod, // handle of application instance      实例句柄。DefHookProc     DWORD dwThreadId // identity of thread to install hook for   &nbsp

;} end; end.

thx1180 · 2003-12-05

The JournalPlaybackProc hook procedure is a callback function that inserts mouse and keyboard messages into the system message queue. Typically, an application uses this hook procedure to play back a series of mouse and keyboard messages recorded previously by the JournalRecordProc hook procedure. As long as a JournalPlaybackProc hook procedure is installed, regular mouse and keyboard input is disabled. LRESULT CALLBACK JournalPlaybackProc(     int code, // hook code     WPARAM wParam, // undefined     LPARAM lParam // address of message being processed   &nbsp

;   Parameters code Specifies a code the hook procedure uses to determine how to process the message. This parameter can be one of the following values: Value Meaning HC_GETNEXT The hook procedure must copy the current mouse or keyboard message to the EVENTMSG structure pointed to by the lParam parameter. HC_NOREMOVE An application has called the PeekMessage function with wRemoveMsg set to PM_NOREMOVE, indicating that the message is not removed from the message queue after PeekMessage processing. HC_SKIP The hook procedure must prepare to copy the next mouse or keyboard message to the EVENTMSG structure pointed to by lParam. Upon receiving the HC_GETNEXT code, the hook procedure must copy the message to the structure.   HC_SYSMODALOFF A system-modal dialog box has been destroyed. The hook procedure must resume playing back the messages. HC_SYSMODALON A system-modal dialog box is being displayed. Until the dialog box is destroyed, the hook procedure must stop playing back messages.   If code is less than zero, the hook procedure must pass the message to the CallNextHookEx function without further processing and should return the value returned by CallNextHookEx. wParam Specifies a NULL value. lParam Points to an EVENTMSG structure that represents a message being processed by the hook procedure. This parameter is valid only when the code parameter is HC_GETNEXT.   Return Values To have the system wait before processing the message, the return value must be the amount of time, in clock ticks, that the system should wait. (This value can be computed by calculating the difference between the time members in the current and previous input messages.) To process the message immediately, the return value should be zero. The return value is used only if the hook code is HC_GETNEXT; otherwise, it is ignored. Remarks A JournalPlaybackProc hook procedure should copy an input message to the lParam parameter. The message must have been previously recorded by using a JournalRecordProc hook procedure, which should not modify the message. To retrieve the same message over and over, the hook procedure can be called several times with the code parameter set to HC_GETNEXT without an intervening call with code set to HC_SKIP. If code is HC_GETNEXT and the return value is greater than zero, the system sleeps for the number of milliseconds specified by the return value. When the system continues, it calls the hook procedure again with code set to HC_GETNEXT to retrieve the same message. The return value from this new call to JournalPlaybackProc should be zero; otherwise, the system will go back to sleep for the number of milliseconds specified by the return value, call JournalPlaybackProc again, and so on. The system will appear to be hung. Unlike most other global hook procedures, the JournalRecordProc and JournalPlaybackProc hook procedures are always called in the context of the thread that set the hook. After the hook procedure returns control to the system, the message continues to be processed. If code  is HC_SKIP, the hook procedure must prepare to return the next recorded event message on its next call. An application installs a JournalPlaybackProc hook procedure by specifying the WH_JOURNALPLAYBACK hook type and the address of the hook procedure in a call to the SetWindowsHookEx function. A Win32 JournalRecordProc hook procedure does not need to live in a dynamic-link library. A Win32 JournalRecordProc hook procedure can live in the application itself. If the user presses CTRL+ESC or CTRL+ALT+DEL during journal playback, the system stops the playback, unhooks the journal playback procedure, and posts a WM_CANCELJOURNAL message to the journaling application. If the hook procedure returns a message in the range WM_KEYFIRST to WM_KEYLAST, the following conditions apply: ?The paramL member of the EVENTMSG structure specifies the virtual key code of the key that was pressed. ?The paramH member of the EVENTMSG structure specifies the scan code. ?There's no way to specify a repeast count. The event is always taken to represent one key event. JournalPlaybackProc is a placeholder for an application-defined or library-defined function name.

seeyouknowme · 2003-12-05

这些帮助我都看过了，关键是这些 if iCode < 0 then        Result := CallNextHookEx(hHook,iCode,wParam,lParam)        else if iCode = HC_SYSMODALON then        recOK:=0    else if iCode = HC_SYSMODALOFF then        recOK:=1    else if ((recOK>0) and (iCode = HC_ACTION)) then ..... 这里的icode的类型是指什么， 也就是HC_SYSMODALON，HC_SYSMODALOFF  ，HC_ACTION 指的是什么类型的东西，这些类型还有那些，分别是什么 function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; begin    recOK:=1;    Result:=0;    if iCode < 0 then        Result := CallNextHookEx(hHook,iCode,wParam,lParam)     //执行当前钩子，    else if iCode = HC_SYSMODALON then        recOK:=0    else if iCode = HC_SYSMODALOFF then        recOK:=1    else if ((recOK>0) and (iCode = HC_ACTION)) then     begin        EventArr[EventLog]:=pEventMSG(lParam)^;        EventLog:=EventLog+1;        if EventLog >=1000 then            begin              UnHookWindowsHookEx(hHook);            end;    end; end;

钩子函数里的 HC_SYSMODALOFF 是什么意思，delphi没有相关帮助(10分)

seeyouknowme

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

seeyouknowme

Unregistered / Unconfirmed

Similar threads