我想寫一個加密的程式，就是如一班影片檔經我的程式讀進來後，我要再寫的檔題加一些東西，然後再把它SAVE。如果要回覆就要再用我的程式來清除。 就像去GIGA尾檔的程式這樣，有人可以式範一下怎麼寫嗎?

你好： 你可以使用 TMemoryStream 將檔案讀入記憶體中處理，完後在存回檔案中。 如果要像 GIGA 加一些東西在檔頭，提供你下列程式研究，這兩個程式一個會加 入標記，一個能除去標記，希望對你有幫助 < class="code"> const aaa = '這是加工過的檔案。'; procedure TForm1.Button1Click(Sender: TObject); var s, d : TMemoryStream; begin s := TMemoryStream.Create; d := TMemoryStream.Create; try s.LoadFromFile('c:\test.dat'); d.Write(aaa, Length (aaa)); d.Write(s.Memory^, s.Size); d.SaveToFile('c:\test.dat'); finally FreeAndNil (d); FreeAndNil (s); end; end; procedure TForm1.Button2Click(Sender: TObject); var s, d : TMemoryStream; p : PChar; begin s := TMemoryStream.Create; d := TMemoryStream.Create; try s.LoadFromFile('c:\test.dat'); p := s.Memory; inc (p, Length (aaa)); d.Write(p^, s.Size); d.SaveToFile('c:\test.dat'); finally FreeAndNil (d); FreeAndNil (s); end; end;