FileOpen для совственного процесса

← →
Users (2004-09-17 11:29) [0]

Нужно открыть на чтение собственный файл :

Var
f : THandle;
...
f := FileOpen("Project1.exe", fmOpenRead );

Получаем INVALID_HANDLE_VALUE

НО через :

f:=_lOpen("Project1.exe", OF_READ);

ВСЕ нормально открывает !!!

В чем проблема, не хочется использовать старую Win16 функцию.

← →
Игорь Шевченко © (2004-09-17 11:32) [1]

f := FileOpen("Project1.exe", fmOpenRead or fmShareDenyNone );

?

← →
Users (2004-09-17 11:37) [2]

Спасибо! Работает !

Я нашел практически то же самое :

f:=CreateFile("Project1.exe", GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)

FileOpen для совственного процесса Найти похожие ветки