Detekcja katalogów w Delphi

Mam problem: jak wykryć otwarcie danego kaalogu pod win'em, a następnie wykonać jakąś procedure?? Hlp plz!!

var
  H : THandle;
begin
  H := FindWindow(nil, 'jakiaś tam nazwa okna');
  if H <> 0 then
    bleble