| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
FileOpen для совственного процесса [D6, Win2k]
Users © (2004-09-17 11:29:00)Нужно открыть на чтение собственный файл :
Var
f : THandle;
...
f := FileOpen('Project1.exe', fmOpenRead );
Получаем INVALID_HANDLE_VALUE
НО через :
f:=_lOpen('Project1.exe', OF_READ);
ВСЕ нормально открывает !!!
В чем проблема, не хочется использовать старую Win16 функцию.
Users (2004-09-17 11:37:00) [1]Спасибо! Работает !
Я нашел практически то же самое :
f:=CreateFile('Project1.exe', GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
Игорь Шевченко (2004-09-17 11:32:00) [2]f := FileOpen('Project1.exe', fmOpenRead or fmShareDenyNone );
?
| |
