WriteProcessMemory problem au3/delphi

[H5O20H 0]

Hello,

I've wrote a program in delphi that basically patch a process,but it's not fully working.

Problem is that the addresses that are in the executable are being patched,but those that are in the dll's loaded by the executable doesn't get patched.

Same thing happened to me in autoit3.It's not a problem for me to do my program in autoit,but the problem.

Here is in delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if GetProcessID(Calculator, PidId) and GetProcessID(SRClient, PidId) then     //If Calculator.exe is found then
begin
PidHandle := OpenProcess(PROCESS_ALL_ACCESS,False,PidId); //Open Calculator.exe
WriteProcessMemory($401000, $90);   //Write PRocessMemory(Adress , Byte)
WriteProcessMemory($02C228A0, $90); //<--- HERE is the problem,this is in the dll loaded by calculator.exe and //it doesn't get patched.
closehandle(PidHandle);
end else //If calculator.exe isn't opened then msgbox
begin
MessageDlg('Start Calculator first', mtwarning, [mbOK],0);
end;

Same problem in Autoit,i would understand what i've missed if you tell me it in autoit3.

Thanks.

Edited July 5, 2008 by H5O20H

[H5O20H 0]

bump

[H5O20H 0]

I tried everything,not working neither in autoit. muttley

[H5O20H 0]

Anyone?