Word dosyasını hex olarak edit edip etmek

[savasgti]

Merhaba arkadaşlar benim istediğim her hangi bir msoffice dosyasını delphide hex olarak açmak ve üzerinde ufak bi değişiklik sonrasında tekrar kaydetmek. Bunu yapabilmek mümkünmü delphide mümkün ise nasıl? Şimdiden Teşekkürler herkeze.

[sabanakman]

Bu kodlar herhangi bir dosyayı açar ve onun içine yazar. Mesela c:\dosya.doc dosyasının 3293. byte'ına x1E (30) yazan kod.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
const n=1;
var Buffer:array[1..n]of Byte; Dosya:TFileStream;
begin
  Dosya:=TFileStream.Create('c:\dosya.doc',fmShareDenyNone or fmOpenRead);
  try
    Dosya.Position:=3293;
    Buffer[1]:=$1e;
    Dosya.Write(Buffer,n);
  finally
    Dosya.Free;
  end;
end;