procedure TForm1.Button1Click(Sender: TObject);
var
hd:thandle;
begin
hd:=CreateFile('e:\temp\temp\',GENERIC_READ,
FILE_SHARE_READ,
nil,
OPEN_EXISTING,
FILE_FLAG_BACKUP_SEMANTICS,
0
);
if hd=INVALID_HANDLE_VALUE then
ShowMessage('error');
end;
这個方法同样适合文件(不过要对所有文件进行处理)
要网监文件夹,可用以下方法:
procedure TForm1.Button2Click(Sender: TObject);
var
dwWaitStatus:dword;
dwChangeHandle:thandle;
begin
dwChange[1] [2] [3] 下一页
|
|
