io uso questo codice:
cos'e' che non va?codice:procedure TForm1.Button1Click(Sender: TObject); var filenm : File; bytez : array[0..1] of byte; begin bytez[0] := 90; bytez[1] := 90; AssignFile(filenm, ExtractFilePath(Application.ExeName)+'prog.exe'); Reset(filenm); Seek(filenm, $10EAE1); BlockWrite(filenm, bytez, 2); CloseFile(filenm); end;

VVoVe:
