500分求一问题解决 (来提供方案的都有份啊) ( 积分: 300 )

形单影只 · 2005-02-27

监视本地移动存储器（U盘、A盘）上的文件创建、更名、修改、删除。 设置内容：允许、禁止访问U盘（默认允许）； 允许、禁止访问A盘（默认允许）； 一贴最多300分，若解决再开贴加分

形单影只 · 2005-02-27

监视本地移动存储器（U盘、A盘）上的文件创建、更名、修改、删除。 设置内容：允许、禁止访问U盘（默认允许）； 允许、禁止访问A盘（默认允许）； 一贴最多300分，若解决再开贴加分

jfyes · 2005-02-27

500 先google

形单影只 · 2005-02-27

要是google的到答案就不用问了，和不在这里解答了，以后的人也可以google的到了，造福人类，哈哈

子瑜 · 2005-02-28

占个位置先

形单影只 · 2005-03-01

以前做delphi的高人现在都转行啦?

wbtvc · 2005-03-01

用shell

SmallGhost · 2005-03-01

我也占个位置,学习学习!

Metelese · 2005-03-01

我要想知道......

形单影只 · 2005-03-01

实现对已经存在的盘监视已经实现,但问题是a盘没法监视,除非a盘里面有盘,不然无法得到正确的句柄,谁知道如何或者a盘中有盘的信息?如果做定时器去检测可能太耗资源了,因为a盘会一直响应,下面是一部分实现的代码 //监控目录 procedure tform1.jkmu(path:string); begin  FNotifyFilter := 0; FNotifyFilter:= FILE_NOTIFY_CHANGE_FILE_NAME or FILE_NOTIFY_CHANGE_DIR_NAME or FILE_NOTIFY_CHANGE_ATTRIBUTES or FILE_NOTIFY_CHANGE_SIZE or FILE_NOTIFY_CHANGE_LAST_WRITE  or FILE_NOTIFY_CHANGE_LAST_ACCESS or FILE_NOTIFY_CHANGE_CREATION or FILE_NOTIFY_CHANGE_SECURITY;  if FNotifyFilter = 0 then  begin     exit;  end;  FDirectoryHandle := CreateFile(PChar(path),    FILE_LIST_DIRECTORY,    FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,    nil,    OPEN_EXISTING,    FILE_FLAG_BACKUP_SEMANTICS or FILE_FLAG_OVERLAPPED,    0);  if FDirectoryHandle = INVALID_HANDLE_VALUE then  begin    beep;    FDirectoryHandle := 0;    ShowMessage(SysErrorMessage(GetLastError));    exit;  end;  FCompletionPort := CreateIoCompletionPort(FDirectoryHandle, 0, Longint(pointer(self)), 0);  ZeroMemory(@FNotificationBuffer, SizeOf(FNotificationBuffer));  FBytesWritten := 0;  if not ReadDirectoryChanges(FDirectoryHandle, @FNotificationBuffer,                              SizeOf(FNotificationBuffer), true,                               FNotifyFilter, @FBytesWritten, @FOverlapped, nil) then  begin    CloseHandle(FDirectoryHandle);    FDirectoryHandle := 0;    CloseHandle(FCompletionPort);    FCompletionPort := 0;    ShowMessage(SysErrorMessage(GetLastError));    exit;  end;  FWatchThread := TWaitThread.Create(self);  TWaitThread(FWatchThread).Resume; end; //停止监控目录 procedure tform1.stopjkmu(); begin if FCompletionPort = 0 then    exit;  PostQueuedCompletionStatus(FCompletionPort, 0, 0, nil);  FWatchThread.WaitFor;  FWatchThread.Free;  CloseHandle(FDirectoryHandle);  FDirectoryHandle := 0;  CloseHandle(FCompletionPort);  FCompletionPort := 0; end; constructor TWaitThread.Create(Form: TForm1); begin  inherited Create(True);  FForm := Form;  FreeOnTerminate := False; end; procedure TWaitThread.HandleEvent; var  FileOpNotification: PFileNotifyInformation;  Offset: Longint; begin  with FForm do  begin    Pointer(FileOpNotification) := @FNotificationBuffer[0];    repeat      Offset := FileOpNotification^.NextEntryOffset;      writelog(      Format(SAction[FileOpNotification^.Action],      [WideCharToString(@(FileOpNotification^.FileName))])      ,'wjjk');      PChar(FileOpNotification) := PChar(FileOpNotification)+Offset;    until Offset=0;  end; end; procedure TWaitThread.Execute; var  numBytes: DWORD;  cbOffset: DWORD;  CompletionKey: DWORD; begin  while not Terminated do  begin    GetQueuedCompletionStatus( FForm.FCompletionPort, numBytes, CompletionKey, FForm.FPOverlapped, INFINITE);    if CompletionKey &lt;&gt; 0 then    begin      Synchronize(HandleEvent);      with FForm do      begin        FBytesWritten := 0;        ZeroMemory(@FNotificationBuffer, SizeOf(FNotificationBuffer));        ReadDirectoryChanges(FDirectoryHandle, @FNotificationBuffer, SizeOf(FNotificationBuffer), true, FNotifyFilter, @FBytesWritten, @FOverlapped, nil);      end;    end    else      Terminate;  end; end;

500分求一问题解决 (来提供方案的都有份啊) ( 积分: 300 )

形单影只

Unregistered / Unconfirmed

形单影只

Unregistered / Unconfirmed

jfyes

Unregistered / Unconfirmed

形单影只

Unregistered / Unconfirmed

子瑜

Unregistered / Unconfirmed

形单影只

Unregistered / Unconfirmed

wbtvc

Unregistered / Unconfirmed

SmallGhost

Unregistered / Unconfirmed

Metelese

Unregistered / Unconfirmed

形单影只

Unregistered / Unconfirmed

Similar threads