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

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)

---

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

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



Память: 0.45 MB
Время: 0.02 c