Вниз
Скачать: CL | DM;

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

 
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 ©   (2009-01-27 13:50) [6]

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


 
Jeer ©   (2009-01-27 14:39) [7]


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


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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c
2-1232630826
EastGod
2009-01-22 16:27
2009.03.15
Получить общую громкость


3-1216183175
Rav
2008-07-16 08:39
2009.03.15
Как заставить работать ADO в сервисе NT


2-1232578253
RustB
2009-01-22 01:50
2009.03.15
Ошибка при добавлении записи в access


11-1193029359
Robt
2007-10-22 09:02
2009.03.15
ToolBar


15-1231918204
Рыбба
2009-01-14 10:30
2009.03.15
Как правильно наследоваться от TDataModule?




   Наверх