Форум программистов [Powered by Invision Power Board]

Код


SetWindowsHookEx(WH_SYSMSGFILTER, @ShellProc, HInstance, 0);

function ShellProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT;  stdcall;
begin
  Result := CallNextHookEx(ShellHooker1.ShellHook, nCode, WParam, LParam); // программа даже не попадает на эту строку.
  // ....
end;

Цитата

SetWindowsHookEx(WH_SYSMSGFILTER, @ShellProc, HInstance, 0);

Код


 ShellHook := SetWindowsHookEx(WH_SHELL, @ShellProc, GetModuleHandle(nil), GetCurrentThreadId());

Цитата

GetLastError возвращает код ошибки 1428.

Цитата

Ведь хук я создаю в основном процессе, а не в DLL.

Цитата

Хм. Почему для хука на мышь и клавиатуру не нужно Dll?

Код


library ShellHook;
uses
  System.SysUtils,
  System.Classes,
  Windows;

{$R *.res}

type
  TGlobalDLLData=packed record
    SysHook:HHOOK; //дескриптор установленной ловушки
    MyAppWnd:HWND; //дескриптор нашего приложения
  end;

var
  GlobalData:TGlobalDLLData;
  MMFHandle:THandle;
  WM_MYSHELLHOOK:Cardinal;

function ShellProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT;  stdcall;
var
  AppWnd:HWND;
begin
  if nCode < 0 then
  begin
    Result:=CallNextHookEx(GlobalData.SysHook,nCode,wParam,lParam);
    Exit;
  end;
    SendMessage(GlobalData.MyAppWnd, WM_MYSHELLHOOK, wParam, lParam);
    CallNextHookEx(GlobalData.SysHook,nCode,wParam,lParam);
  Result:= 0;
end;


procedure hook(switch: boolean; hMainProg: HWND) export; stdcall;
var
  mm: MINIMIZEDMETRICS;
begin
  if switch=true then
  begin
  {Устанавливаем HOOK, если не установлен (switch=true). }
  mm.cbSize:=sizeof(MINIMIZEDMETRICS);
  mm.iArrange:=ARW_HIDE or ARW_BOTTOMRIGHT;
  mm.iWidth := 32;
  mm.iHorzGap := 14;
  mm.iVertGap := 14;
 {
  Вообще не пойму смысла этого, но взял отсюда: http://www.vsokovikov.narod.ru/New_MSDN_API/Hook/wh_shell.htm
 }
  SystemParametersInfo(SPI_SETMINIMIZEDMETRICS, sizeof(MINIMIZEDMETRICS), @mm, SPIF_SENDCHANGE);
  

    GlobalData.SysHook := SetWindowsHookEx(WH_SHELL, @ShellProc, HInstance, 0);
    GlobalData.MyAppWnd := hMainProg;
  end
  else
    UnhookWindowsHookEx(GlobalData.SysHook);
end;

procedure OpenGlobalData();
begin
  {регестрируем свой тип сообщения в системе}
  WM_MYSHELLHOOK := RegisterWindowMessage('WM_MYSHELLHOOK');
end;

procedure CloseGlobalData();
begin
end;

exports hook;

procedure DLLEntryPoint(dwReason: DWord); stdcall;
begin
  case dwReason of
    DLL_PROCESS_ATTACH: OpenGlobalData;
    DLL_PROCESS_DETACH: CloseGlobalData;
  end;
end;

begin
  DLLProc:= @DLLEntryPoint;
  {вызываем назнаxенную процедуру для отражения факта присоединения данной
  библиотеки к процессу}
  DLLEntryPoint(DLL_PROCESS_ATTACH);
end.

Код


 TForm1 = class(TForm)
 private
    { Private declarations }
    hDLL: THandle; // дескриптор загружаемой библиотеки
    WM_MYSHELLHOOK: DWORD; // мо? сообщение
  public
    { Public declarations }
    procedure WndProc(var Msg: TMessage); override;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Hook: procedure (switch : Boolean; hMainProg: HWND) stdcall;
begin
  @hook:= nil; // инициализируем переменную hook
  hDLL:=LoadLibrary(PChar('shellhook.dll')); { загрузка DLL }
  if hDLL > HINSTANCE_ERROR then
  begin { если вс? без ошибок, то }
      WM_MYSHELLHOOK := RegisterWindowMessage('WM_MYSHELLHOOK');
      @hook:=GetProcAddress(Hdll, 'hook'); { полу?аем указатель на необходимую процедуру}
      StatusBar1.SimpleText:= 'Status: DLL loaded...';
      hook(true, Form1.Handle);
  end
  else
      StatusBar1.SimpleText:= 'Status: DLL not loaded...';
end;

procedure TForm1.WndProc(var Msg: TMessage);
begin
 inherited;
 if Msg.Msg = WM_MYSHELLHOOK then
    Memo1.Lines.Add('Смена окна');
end;

Цитата

Windows вызывает этот хук, когда диалоговое окно, информационное окно, полоса прокрутки или меню получают сообщение, либо когда пользователь нажимает комбинацию клавиш ALT+TAB (или ALT+ESC) при активном приложении, установившем этот хук. Данный хук устанавливается для конкретного потока, поэтому его безопасно размещать как в самом приложении, так и в DLL.