Задача такая, надо сменить у файла EP. Для этого написал следующию процедуру:

Procedure ChangeEP(FileName:String; NEWEP:DWord);
var
FHandle : THandle;
PEHeaderOffset : Dword;
BRead : DWord;
begin
FHandle:= createfile(pchar(FileName),GENERIC_read,FILE_SHARE_READ,nil,OPEN_EXIST ING,0,0);
SetFilePointer(FHandle, $3C, nil, 0);
ReadFile(FHandle, PEHeaderOffset, SizeOf(PEHeaderOffset), BRead, nil);
SetFilePointer(FHandle, PEHeaderOffset + $28, nil, 0);
WriteFile(Fhandle, NEWEP, SizeOF(NEWEP), BRead,nil);
CloseHandle(FHandle);
end;

Но почему-то меняться не хочет. Я все правильно делаю? Подскажите где ошибка!

| Сообщение посчитали полезным:

GENERIC_read or GENERIC_write

-----
MicroSoft? Is it some kind of a toilet paper?

| Сообщение посчитали полезным:

ну можно ещё так

PE:=CreateFile(PChar(F_PEFilePath),GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);


-----
[nice coder and reverser]

| Сообщение посчитали полезным:

Hellspawn пишет:
FILE_SHARE_READ or FILE_SHARE_WRITE
ну зачем давать другим прогам потенциальную возможность нахимичить во время работы твоей? ;)

достаточно будет только FILE_SHARE_READ.

-----
MicroSoft? Is it some kind of a toilet paper?

| Сообщение посчитали полезным:

Спасибо ребята, совсем я стормозил

| Сообщение посчитали полезным:

GENERIC_ALL ;)

-----
HOW MUCH BLOOD WOULD YOU SHED TO STAY ALIVE

| Сообщение посчитали полезным: