Права на доступ и сканирование папки

[3StYleR]

Доброго времени суток!
Подскажите пожалуйста, как в MSVC++ проверить эксклюзивные права на запись, и как сканировать определенную папку на наличие файлов с определенным расширением (например .png)

[waleri]

Что значить "проверить эксклюзивные права на запись"?
Для сканирования папок - FindFirstFile() и FindNextFile()

[3StYleR]

Сообщение от waleri

Что значить "проверить эксклюзивные права на запись"?

Т.е. надо проверить, открыт ли файл в другом приложении или нет, чтобы после того, как стороннее приложение "отпустит" файл, можно было его переместить в другую папку

[Stilet]

Это скорее невозможно. Другое приложение не обязательно откроет файл в режиме эксклюзивного доступа.

[3StYleR]

Сообщение от Stilet

Это скорее невозможно. Другое приложение не обязательно откроет файл в режиме эксклюзивного доступа.

Оkay. А просто проверить открыт файл в другом приложении или нет можно?

[Stilet]

Хм... Я сталкивался однажды с этим.
Код чуть замученный, но все же выложу

function GetHandlesFileFromPID;
var SystemInformation: PSYSTEM_PROCESS_INFORMATION;
  pHandleInfo: PSYSTEM_HANDLE_INFORMATION_EX;
b:byte;  i:integer;    s:String;
cp,hp:Cardinal;hFile: THandle;
begin
 b:=GetFileHandleType;
SystemInformation:= GetInfoTable(5);
  if SystemInformation <> nil then
    pHandleInfo := GetInfoTable(16);
for I := 0 to pHandleInfo^.NumberOfHandles - 1 do
      begin
        if pHandleInfo^.Information[I].ObjectTypeNumber = b then
        begin
          hP := OpenProcess(PROCESS_DUP_HANDLE, True,
            pHandleInfo^.Information[I].ProcessId);
          if hP > 0 then
          try
            if DuplicateHandle(hP, pHandleInfo^.Information[I].Handle,
              GetCurrentProcess, @hFile, 0, False, DUPLICATE_SAME_ACCESS) then
            try
              if Application.Terminated then Exit;
              s := GetFileNameFromHandle(hFile);
//              caption:=IntToStr(cp);
             if (trim(s)<>'')and(pHandleInfo^.Information[I].ProcessId=PID)or(PID=MAXDWORD) then
               result:=result+({inttostr(pHandleInfo^.Information[I].ProcessId)+' '+}s)
               +#10#13;
            finally
              CloseHandle(hFile);
            end;
          finally
            CloseHandle(hP);
          end;
        end;
        Application.ProcessMessages;
      end;
end;

К ней нужна

function GetFileNameFromHandle(hFile: THandle): String;
  var
    lpExitCode: DWORD;
    pThreadParam: TGetFileNameThreadParam;
    hThread: THandle;
  begin
    Result := '';
    ZeroMemory(@pThreadParam, SizeOf(TGetFileNameThreadParam));
    pThreadParam.hFile := hFile;
    hThread := CreateThread(nil, 0, @GetFileNameThread, @pThreadParam, 0, PDWORD(nil)^);
    if hThread <> 0 then
    try
      case WaitForSingleObject(hThread, 100) of
        WAIT_OBJECT_0:
        begin
          GetExitCodeThread(hThread, lpExitCode);
          if lpExitCode = NT_STATUS($00000000){STATUS_SUCCESS} then
            Result := pThreadParam.Data;
        end;
        WAIT_TIMEOUT:
          TerminateThread(hThread, 0);
      end;
    finally
      CloseHandle(hThread);
    end;
  end;

//**************************************************************************
  function GetInfoTable(ATableType: DWORD): Pointer;
   const STATUS_INFO_LENGTH_MISMATCH = NT_STATUS($C0000004);
   var
     dwSize: DWORD;
     pPtr: Pointer;
     ntStatus: NT_STATUS;
   begin
     Result := nil;
     dwSize := WORD(-1);
     GetMem(pPtr, dwSize);
     ntStatus := ZwQuerySystemInformation(ATableType, pPtr, dwSize, nil);
     while ntStatus = STATUS_INFO_LENGTH_MISMATCH do
     begin
       dwSize := dwSize * 2;
       ReallocMem(pPtr, dwSize);
       ntStatus := ZwQuerySystemInformation(ATableType, pPtr, dwSize, nil);
     end;
     if ntStatus = NT_STATUS($00000000){STATUS_SUCCESS} then
       Result := pPtr
     else
       FreeMem(pPtr);
   end;

Когда-то это нарыл в инете. Вроде даже получалось получать список открытых файлов другими процессами, но на практике особо не пригодилось.

[p51x]

Просто нет. Типично: перебрать все процессы, просмотреть их открытые файлы и сравнить... естественно, для кучи файлов очень неэффективно.

[waleri]

Сообщение от 3StYleR

Оkay. А просто проверить открыт файл в другом приложении или нет можно?

В принципе можно, только это вам ничего не гарантирует. Пока вы решите перемещать файл его вновь может открыть другой процес.

[3StYleR]

Сообщение от waleri

В принципе можно, только это вам ничего не гарантирует. Пока вы решите перемещать файл его вновь может открыть другой процес.

Мне эта проверка нужна, чтобы знать, когда файл полностью скопировался в нужную директорию. Другие процессы, в принципе, не должны открывать файл после этого