20-05-2019, 03:40 AM
السلام عليكم
ألق نظرة هنا
أيضا إستخدم الصنف TMemoryStream
ودوال ReadFile, WriteFile
ألق نظرة هنا
أيضا إستخدم الصنف TMemoryStream
ودوال ReadFile, WriteFile
PHP كود :
function file_(const FileName: string; Offset: DWORD; NewValue: Byte): Integer;
var
MS: TMemoryStream;
begin
Result := 0;
if not FileExists(FileName) then
Exit;
MS := TMemoryStream.Create;
try
MS.LoadFromFile(FileName);
MS.Position := Offset;
Result := MS.Write(NewValue, SizeOf(Byte));
//MS.SetSize(MS.Size - 1);
MS.SaveToFile(FileName + '_Patched');
finally
MS.Free;
end;
end;
// usage
// file_('file.bin', 3, $AB);
سبحان الله وبحمده سبحان الله العظيم


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)