写入任意exe头文件中..

Question

如何在exe文件启动的同时启动自己的文件..起监视作用如将自己的程序写进头文件中..请问如何实现.

Answer 1

如将自己的程序写进头文件中..请问如何实现. 
var 
  SFile,DFile: TFileStream;//源、目的文件流
  iSize: Integer;
begin
    SFile := TFileStream.Create(edtAppName.Text, fmOpenRead);
    DFile := TFileStream.Create(edtUpdateName.Text, fmOpenReadWrite);
    DFile.Seek(0,soFromEnd);
    DFile.CopyFrom(SFile,SFile.Size);
    iSize := SFile.Size;
    DFile.Write(iSize,4);
end;