مشکل در محدودیت سایز فایل بعنوان ریسورس در updateresource function

[dadvand]

با سلام
من از کد زیر برای اضافه کردن یک ریسورس به یک فایل اجرایی استفاده کردم
تا وقتی که اندازه فایل ریسورس کمتر از 4 کیلوبایت باشه درست کار میکنه ، ولی همینکه بیشتر باشه فایل اجرایی coruppted میشه ، کسی میدونه مشکل چیه ؟ ( در ضمن در محیط ویندوز ویستا کد مینویسم ، اینو گفتم چون مایکروسافته یک آپدیت واسه kernel32 در محیط اکس داده واسه همین مشکل
When you use the following functions to remove a resource from an application binary file on Microsoft Windows XP or on Microsoft Windows 2000, the binary file may become corrupted:
)

Uses Classes, Windows, SysUtils, Dialogs;

 

Type

  TBuffer = Array[0..0] of Byte;

  PBuffer = ^TBuffer;

 

Var

  FS             : TFileStream;

  ResourceHandle : THandle;

  DataLength     : DWord;

  Data           : PBuffer;

  Ok             : Boolean;

 

Begin

   ResourceHandle := BeginUpdateResource(pChar('d:\someexefile.exe'), False);

   IF (ResourceHandle <> 0) Then

   Begin

      FS := TFileStream.Create('d:\somebitmap.bmp', fmOpenRead);

      FS.Seek(0, soFromBeginning);

      DataLength := FS.Size;

      GetMem(Data, DataLength);

      FS.Read(Data^, DataLength);

      FS.Free;

 

      Ok := True;

      IF (not UpdateResource(ResourceHandle, RT_RCDATA, pChar('MyNewResource'), LANG_SYSTEM_DEFAULT{MakeLangID(LANG_NEUTRAL, SUBLANG_NEUTRAL)}, Data, DataLength)) Then Ok := False;

 

      IF (not EndUpdateResource(ResourceHandle, False)) Then Ok := False;

 

      IF (Ok) Then ShowMessage('Update of resources successful!')

         Else ShowMessage('Update of resources failed!');

 

      FreeMem(Data);

   End;

End.

[dadvand]

ایول بابا یکی پیدا نشد جواب مارو بده