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);
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);
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;
各位大哥有例子吗?
各位大哥有例子吗?