Проверка наличия прав на запись в папку (Pascal)


uses Windows;
...
function WriteAllowed(folder: string): boolean;
var
  h: THandle;
begin
  h:=CreateFile(PChar(folder), GENERIC_WRITE, FILE_SHARE_WRITE,
     nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  if h = INVALID_HANDLE_VALUE then
    Result:=false
  else
  begin
    CloseHandle(h);
    Result:=true;
  end;
end;
Реклама
Запись опубликована в рубрике программирование, Windows с метками . Добавьте в закладки постоянную ссылку.

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s