Var
  Buf  : Array [1..3] of Byte;Buf[1]:=$DD;
Buf[2]:=$EE;
Buf[3]:=$FF;
Reset(F,1);
Seek(F,Your pos);
BlockWrite(F,Buf,3,i1);

解决方案 »

  1.   

    那么如个查找$DDEEFF在一个二进制文件中的地址?
      

  2.   

    一段段的 Pos(#$FF#$EE#$DD, Buffer);别忘记每个Buffer应该重复你要搜索字符串长度减一个字节。
      

  3.   

    GoodHope能给出一段例子吗? 谢谢
      

  4.   

    哎,用TFileStream轻松搞定嘛
    procedure WriteExe;
    const
      abuf:Array[0..2] of byte=($DD,$EE,$FF);
    var
      aFile:TFileStream;
    begin
      aFile:=TFileStream.Create('c:\1.exe',fmOpenWrite);
      aFile.Position:=100;
      aFile.Write(abuf,3);
      aFile.Free;
    end;
      

  5.   

    如个查找$DDEEFF在一个二进制文件中的地址?
    各位大哥有例子吗? 
      

  6.   

    如个查找$DDEEFF在一个二进制文件中的地址?
    各位大哥有例子吗?