Filsystems hook

Jeg har ikke selv rodet med det, men jeg kan huske at Delphi Informant havde en artikkel om udokumenterede shell notificationer, og filesystem hooks.

Prøv at se på :

http://www.informant.com/delphi/dif99.asp


:)

JustinCase

Måske kan du bruge nedenstående. Være dog opmærksom på at visse event først udløses efter handlingen er udført f.eks. rename af en fil.

procedure TForm1.Button1Click(Sender: TObject);
begin
  {notifications objektet oprettes}
  NotificationHandle := FindFirstChangeNotification
                          ('C:\'
                          , false
                          , FILE_NOTIFY_CHANGE_FILE_NAME);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Waiting : boolean;
  dwresult: DWORD;
begin
  Waiting := true;
  application.processMessages;
  while Waiting do
  begin
    dwResult := WaitForSingleObject(Notificationhandle, INFINITE);
    if (dwResult = WAIT_OBJECT_0) then
    begin
      if application.messagebox('Monitoring?'
                                ,'Continue'
                                , MB_ICONQUESTION or MB_YESNO)
                                = IDYES then
      begin
        FindNextChangeNotification(NotificationHandle)
      end
      else
        Waiting := false;

    end
  end;
  FindCloseChangeNotification(Notificationhandle);
end;

Sorry, det er ikke systemnært nok!
Jeg skal bruge noget der ligger nærmere systemet!

Lukkes