Ersten Bytes einer File verändern

[mashutu]

So funktioniert das:

Delphi-Quellcode:

procedure Tpkfak_frm_Main.btnStartClick(Sender : TObject);
const
    casNewHead   : array[0..1] of char =  'HY';
var
    f   :   file;
begin
    system.assign(f,'template.zip');
    reset(f,1);
    blockwrite(f,casNewHead,2);
    system.close(f);
end;