Текущий архив: 2009.01.11;
Скачать: CL | DM;
Вниз
Переделать код Найти похожие ветки
← →
2B (2008-11-26 15:11) [0]Как переделать код, нужно сделать через FileOpen, интересую File open mode constants, какие и в каком порядке передавать:
Result := False;
H := CreateFile(PChar(ParamStr(0) + Name),
GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);
if H <> INVALID_HANDLE_VALUE then
begin
Result := True;
CloseHandle(H);
end;
← →
MBo © (2008-11-26 15:17) [1]загляни в SysUtils.pas
← →
Palladin © (2008-11-26 15:25) [2]
> интересую File open mode constants
вообще то они прекрасно описаны в справке
> в каком порядке передавать
ну если, подсчитанный тобой, результат 1 or 2 будет не равен 2 or 1, то у тебя какаято извращенная логика :)
Страницы: 1 вся ветка
Текущий архив: 2009.01.11;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.012 c
