Не резервируется память VirtualAlloc

[calypso]

Сообщение от f.hump

кстати, а разве GetFileSize принимает имя файла, а не его хендл?

Да тут опечатка,должно быть (так и есть):

libname:='C:\GameSystem.dll';
          libhandle:= CreateFile(libname,GENERIC_READ or GENERIC_WRITE or GENERIC_EXECUTE,FILE_SHARE_READ or FILE_SHARE_WRITE,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
        libsize:=GetFileSize(libhandle,0);

Теперь по поводу VirtualAlloc: не работает выделение памяти по заданному адресу,так работает:
buffer:=VirtualAlloc(0,libsize,MEM_ COMMIT,PAGE_EXECUTE_READWRITE);

Резервируется память,но адрес выбирает система.Однако данные не пишутся:

SetFilePointer(libhandle,libsize,0,FILE_BEGIN);
ReadFile(libhandle,buffer,libsize,bytesread,nil);

Ошибка 998 - NOACCESS.

[waleri]

Почитайте про VirtualProtect()

[f.hump]

а почему указатель файла ставится в конец?

[calypso]

Кажется разобрался.Получилось вот что:
1. В VirtualAlloc надо обязательно ставить параметр MEM_COMMIT or MEM_RESERVE для Delphi или MEM_COMMIT|MEM_RESERVE для Visual C++ (пробовал оба способа)
2. VirtualProtect вообще не нужен,да он и не работает (выдает ошибку что нет доступа)
3. SetFilePointer (libhandle,0,0,FILE_BEGIN) - начало файла

Память теперь замечательно резервируется по любому адресу (который свободен - К.О.),и вроде даже файл читается из самой проги.
Из инжектированной DLL правда при чтении ошибка 998,но это я думаю можно исправить

[calypso]

Короче не работает в Delphi:

ReadFile(libhandle,buffer,libsize,&bytesread,nil)

ошибка 998
На VisualC++ и Borland C++ работает:

ReadFile(libhandle,buffer,libsize,&bytesread,NULL)

bytesread тип DWORD, buffer PVOID

[f.hump]

в Делфи я не мастак, но смутно вспоминая детство,
bytesread - это output, и передается как var, & - не нужен. я прав?

ReadFile(libhandle,buffer,libsize,bytesread,nil)

хотя на &, наверно, компилятор ругаться будет

[calypso]

Да я уж по всякому пробовал,и с & ,и без, и nil на 0 менял - не хочет файл читать и хоть ты тресни. Одна IDE Embarcadero XE2 , на С++ этот код работает,на Делфи нет. Может быть Дельфям не нравятся какие-то параметры из CreateFile? Хотя тогда бы он размер не определил,но память выделяется - всё ок. Только блок пуст,а на С++ туда ещё считываются данные из файла

[calypso]

Всё,заработало наконец. Секрет полишинеля заключался в том,что буфер передавался как адрес ячейки стека (указатель) вместо числового значения адреса.

ReadFile(libhandle,buffer^,libsize,bytesread,nil)

Магический значок "^" делает код рабочим,и теперь содержимое файла загружено в память по выделенному адресу в регион Private RWE