Sử dụng Delphi để theo dõi các thay đổi được thực hiện cho thư mục?

Question

Tôi cần viết chương trình delphi sẽ theo dõi một thư mục để thay đổi (Thêm, cập nhật, đổi tên và xóa tệp). TShellChangeNotifier có phải là cách để đi không? Thành thật mà nói, tôi không có ý tưởng làm thế nào để sử dụng nó.

Vui lòng trợ giúp.

Cảm ơn.

Answer 1

Điều này question có thể hữu ích. Câu trả lời của mghie cho thấy cách sử dụng đúng cách ReadDirectoryChangesW.

Answer 2

Tôi nghĩ rằng bài viết này sẽ giúp bạn: Monitoring System Shell Changes using Delphi

Về cơ bản nó phân tích TShellChangeNotifier, loại bỏ nó và sau đó đi cho một TSHChangeNotify mà về cơ bản là một wrapper cho SHChangeNotify cửa sổ chức năng api.

Answer 3

tôi đề nghị sử dụng madShell

RegisterShellEvent(ShellEvent, pathToMonitor, false, [seItemCreated, seItemRenamed]); 

// 

procedure Tform.ShellEvent(event: TShellEventType; const obj1, obj2: IShellObj; drive: char; value: cardinal); 
var 
    filename: string; 
    isReady: boolean; 
begin 
    if (event = seItemCreated) then 
    filename := obj1.Path 
    else if (event = seItemRenamed) then 
    filename := obj2.Path 
    else 
    exit; 

    // try to open to ensure it's read for reading 
    repeat 
    try 
     TfileStream.Create(filename, fmOpenRead + fmShareExclusive).Free; 
     isReady := true; 
    except 
     isReady := false; 
     sleep(250); 
    end; 
    until (isReady) or (not FileExists(filename)); 

    OutputDebugString(pChar('ShellEvent: ' + filename)); 

end;