核心提示：procedure TForm1.Button1Click(Sender: TObject);var vFS : TFileStream; vStr : String;begin vStr := '1...
procedure TForm1.Button1Click(Sender: TObject);var
vFS : TFileStream;
vStr : String;
begin
vStr := '1234';
vFs := TFileStream.Create('C:\e.jpg',fmOpenReadWrite);
try
vFS.Position := $400;
vFS.WriteBuffer(pointer(vStr)^,4);
finally
FreeAndNil(vFS);
end;
end;
