Значит пишу HOOK!

По нижеследующему коду видно, что у меня в файле сохраняются все запушенные программы и рядом время!
Подскажите как вставить чтобы писалось све что создавалось, копировалось, удолялось и т.д.
ПОДСКАЖИТЕ!



БИБЛИОТЕКА:
library Project2;


uses
 Windows,
 Messages,
 Forms,
 SysUtils,
 Classes,
 Graphics,
 Controls,
 Dialogs,
 StdCtrls;

var
 SysHook : HHook = 0;
 Wnd : Hwnd = 0;
 f: TextFile;
 

function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
begin
if code = HC_ACTION then
 begin
  Wnd:=TMsg(Pointer(lParam)^).hwnd;
  end;
  Result:= CallNextHookEx(SysHook, Code, wParam, lParam);
  end;

procedure hook(switch : Boolean) export; stdcall;
begin
 if switch=true then
 begin
   SysHook := SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, 0);
 if SysHook <> 0 then
 end
 else
 begin

   if UnhookWindowsHookEx(SysHook) then
    SysHook := 0;
 end;
end;

exports hook;

var
k: String;
begin

 k:=TimeToStr(Time);
 AssignFile(f,'c:\1.txt');
 Append(f);
 Write(f,k);
 Write(f,' ');
 Writeln(f,PChar(Application.ExeName));
 Close(f);
end.





-------------------------------------------------------
Сам код:
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

{для динамической загрузки функций из DLL}
type
 MyProcType = procedure (flag : Boolean); stdcall;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   procedure Button2Click(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure FormActivate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 Hdll : HWND; { дескриптор загружаемой DLL (для динамической загрукзки)}

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall;
 external 'KERNEL32.DLL';
implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
var
 hook: MyProcType;
begin
 @hook:= nil; // инициализируем переменную hook
 if Hdll > HINSTANCE_ERROR then
   begin                                   { если всё без ошибок, то }
     @hook:=GetProcAddress(Hdll, 'hook');  { получаем указатель на необходимую процедуру}
     Button1.Enabled:=True;
     Button2.Enabled:=False;
     hook(false);                           {вызываем нужную процедуру из DLL}
   end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 FreeLibrary(Hdll); { при закрытии формы - освобождаем DLL }
end;

procedure TForm1.FormActivate(Sender: TObject);
var
 hook: MyProcType;
begin
 RegisterServiceProcess(GetCurrentProcessID, 1);
 @hook:= nil;

 Hdll:= LoadLibrary(PChar('Project2.dll'));
 if Hdll > HINSTANCE_ERROR then
   begin
     @hook:=GetProcAddress(Hdll, 'hook');
     Button2.Enabled:=True;
     Button1.Enabled:=False;
     hook(true);
   end
 else

end;


end.

Надо найти такое сообщение которое будет отлавливать "создавалось, копировалось, удолялось и т.д."
А ты думал, скопировал пример со статьи "Хуки. Аспекты реализации" и всё бдует работать под стать твоей задачи?

Цитата(Song @ 10.9.2002, 07:46)

Надо найти такое сообщение которое будет отлавливать "создавалось, копировалось, удолялось и т.д." А ты думал, скопировал пример со статьи "Хуки. Аспекты реализации" и всё бдует работать под стать твоей задачи?

Вопервых я пример разобрал и кое что добавил, вот именно я  и спрашиваю про это сообшение?

Posmotri Win32.hlp tam use uestb

Люди я вам в этом помочь не смогу а только отнять ваше драгоценное время и обратить ваще вниманя на раздел "копирования Файлов" если что знаети помогите!
С уважением lider07
Зарания спасибо!