Подскажите, что выполняет данная функция?

← →
Golden (2009-01-27 12:31) [0]

Здравствуйте. Подскажите, что выполняет данная функция? Заранее спасибо.

function CheckFileShare(FileName: string; dwShareAccess: Cardinal = 0): boolean;
var
hFile: cardinal;
begin
Result := False;
hFile := CreateFile(PAnsiChar(FileName), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result := hFile <> INVALID_HANDLE_VALUE;
CloseHandle(hFile);
end;

← →
Palladin © (2009-01-27 12:37) [1]

Команды.

← →
Golden (2009-01-27 12:40) [2]

> Команды.

Т.е в чем ее предназначение?)) Я так понял поиск файла выполняет, может и ошибаюсь. Подскажите плз

← →
Palladin © (2009-01-27 12:59) [3]

> Т.е в чем ее предназначение?

там всего 3 (три, не тридцать, три) строчки, ты разобраться в них не можешь чтоли?

← →
@!!ex © (2009-01-27 13:06) [4]

> [0] Golden (27.01.09 12:31)

Переведи буквально название функции. собственно это то, что она делает. :)

← →
clickmaker © (2009-01-27 13:47) [5]

строго говоря, название не совсем корректно.
Так как функция всего лишь проверяет, существует ли файл и есть ли доступ к нему на чтение
не говоря уже о том, что dwShareAccess вообще не используется
да и вот это - Result := False; - лишнее

Кто то велосипед изобретал и это у него плохо получилось.

> Anatoly Podgoretsky © (27.01.09 13:50) [6]
>
> Кто то велосипед изобретал и это у него плохо получилось.
>
>

Да ладно.. на одном из форумов обсуждали ускоренные алгоритмы деления целых чисел на константы с учетом получения остатков, так меня просто убило "выражопывание" автора одного из "алгоритмов": "Ну, да - иногда мы будем получать некорректные результаты, но это редко наблюдается.

Подскажите, что выполняет данная функция? Найти похожие ветки