我已经实现了Hook,但是我要在截取到相应消息后,返回数据给主程序,不知道该怎么办了function keyHookProc(nCode: Integer; WParam: WParam; LParam: LParam): LRESULT;
stdcall;
var
LogFile: TextFile;
Data: TCWPStruct;
ss: String;begin
Result := 0;
if nCode < 0 then
begin
Result := CallNextHookEx(hHk, nCode, WParam, LParam);
Exit;
end
else
begin
Data := (PCWPStruct(LParam))^;
if Data.message=wm_activateapp then begin
//在此处返回数据给主程序?
end;
end;end;请高手指教
stdcall;
var
LogFile: TextFile;
Data: TCWPStruct;
ss: String;begin
Result := 0;
if nCode < 0 then
begin
Result := CallNextHookEx(hHk, nCode, WParam, LParam);
Exit;
end
else
begin
Data := (PCWPStruct(LParam))^;
if Data.message=wm_activateapp then begin
//在此处返回数据给主程序?
end;
end;end;请高手指教
{ 向主窗体发送发生消息的窗口句柄 }
谢谢但是我要返回的lparam是多个数据呢