نحوه Patch کردن یک فایل

[Nima NT]

با سلام خدمت اساتید گرامی
بنده میخواستم در یک فایل و در یک آدرس مشخص بایتی رو تغییر بدم , چطوری میتونم این کار رو انجام بدم ؟
ممنون میشم کمکم کنید.

[AliReza Vafakhah]

hFile:=FileOpen(GetCurrentDir+'\'+StrPath,fmOpenRe adWrite)
FileSeek(hFile,0,2); // Goto Frist File
FileSeek(hFile,209668,0); // Goto Point/Offset
ChangeBit:=235;
FileWrite(hFile,ChangeBit,1);
FileClose(hFile);