keyboardhook.~dpr

罗小平<<delphi精要>>一书源码

library KeyboardHOOK;

uses
  Windows,
  HKProc in 'HKProc.pas';
  
exports
  EnableHotKeyHook, DisableHotKeyHook;

{$R *.res}

procedure LibraryProc(Reason: Integer);
var
  P: PChar;
begin
  case Reason of
    DLL_PROCESS_ATTACH:
    begin
      GetMem(P,MAXBYTE);
      GetSystemDirectory(P,MAXBYTE);
      Assign(F,P+'\result.txt');
      ReWrite(F);
      FreeMem(P);
    end;
    DLL_PROCESS_DETACH: HotKeyHookExit;
  end;
end;

begin
  DLLProc := @LibraryProc;
  LibraryProc(DLL_PROCESS_ATTACH);
end.