Переделать код

← →
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

> интересую File open mode constants

вообще то они прекрасно описаны в справке

> в каком порядке передавать

ну если, подсчитанный тобой, результат 1 or 2 будет не равен 2 or 1, то у тебя какаято извращенная логика :)

Переделать код Найти похожие ветки