PE Editor مع مشروع برنامج صغير

[hanipino]

السلام عليكم

استطعت اخفاء و جود ال Overlay ... لاكن دالك كان على حساب اخر Section ... بحيث هده الاخيرة اصبحت لا عمل لها .
و تحدث اخطاء ان اعتمد البرنامج على اشياء من هده Section

PHP كود :

procedure FixOverlay(sPath: string);
var
  IDH:    TImageDosHeader;
  INH:    TImageNtHeaders;
  ISH:    TImageSectionHeader;
  hFile:  THandle;
  dRead:  DWORD;
  dSize:  DWORD;
begin
  try
    hFile := CreateFile(PChar(sPath), GENERIC_ALL, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
    if hFile <> INVALID_HANDLE_VALUE then
    begin
      dSize := GetFileSize(hFile, nil);
      SetFilePointer(hFile, 0, nil, FILE_BEGIN);
      ReadFile(hFile, IDH, SizeOf(IDH), dRead, nil);
      if dRead = SizeOf(IDH) then
      begin
        SetFilePointer(hFile, IDH._lfanew, nil, FILE_BEGIN);
        ReadFile(hFile, INH, SizeOf(INH), dRead, nil);
        if dRead = SizeOf(INH) then
        begin
          SetFilePointer(hFile, IDH._lfanew + 248 + (INH.FileHeader.NumberOfSections - 1) * 40, nil, FILE_BEGIN);
          ReadFile(hFile, ISH, SizeOf(ISH), dRead, nil);

          //------------------------------//
          ISH.PointerToRawData := dSize;
          ISH.SizeOfRawData := 0;
          //------------------------------//

          SetFilePointer(hFile, IDH._lfanew + 248 + (INH.FileHeader.NumberOfSections - 1) * 40, nil, FILE_BEGIN);
          WriteFile(hFile, ISH, SizeOf(ISH), dRead, nil);
        end;
      end;
    end;
    CloseHandle(hFile);
  except
    {$Warnings OFF}
    NoErrMsg := True;
  end;
end; 


شكرا اخوانى .