关于16进制文件的存取问题：

[yhncom_36]

在delphi中用什么组件进行16进制文件的存取！各位大吓不妨指点一二！小弟在此先谢过了！

[blazingfire]

什么16进制文件，机器中的文件最终都是以2进制方式存储的呀

[yhncom_36]

那么2进制文件如何存储呀？用什么组件呀？

[blazingfire]

文件的处理可以用流呀，如TFileStream,TMemoryStream.

[blazingfire]

作一个例子吧：
var
FileStrm:TFileStream;
begin
if FileExists('D:\1') then
FileStrm:=TFileStream.Create('D:\1',fmOpenWrite)
else
FileStrm:=TFileStream.Create('D:\1',fmCreate);
FileStrm.SaveToFile('D:\2');//更名存一下而已，其它的用法找本书看看吧
FileStrm.Free;
end;

[yhncom_36]

一句话，用什么方法写folder.htt这个文件？

不能用程序直接拷贝！要生成！也就是说把folder.htt的内容正确无误的提取到memo中，第一次可以从其他文件提取，从第二次至以后就不能再从folder.htt中提取，而是直接用memo中的内容，明白吗？

[SnowFisher]

拿个数组或者别的什么存起来，不行吗？

[角落的青苔]

Memo1.LoadFromFile('folder.htt');
Memo1.SaveToFile('folder.htt');
没听明白~~不知道是这样吗？

[yhncom_36]

老大，要是这样的话还用问吗？

[foreveryouth]

yhncom_36(认真做人，专心编程)
作一个例子吧：
var
FileStrm:TFileStream;
begin
if FileExists('D:\1') then
FileStrm:=TFileStream.Create('D:\1',fmOpenWrite)
else
FileStrm:=TFileStream.Create('D:\1',fmCreate);
FileStrm.SaveToFile('D:\2');//更名存一下而已，其它的用法找本书看看吧
FileStrm.Free;
end;
//
FileStrm.SaveToFile('c:\folder.htt')

或者writeln,readln.查查帮助！

[yhncom_36]

有那位同志研究过98下面的folder.htt这个文件，因为我做的程序是先将这些已经染毒的文件全部硬盘上删除，然后写这个文件，我用记事本将这个文件打开，将它的内容粘贴到memo中，然后从memo输出到c:\windows\system32下面，但是提示出错！我发现我在粘贴的过程中已经将其内容改变，如何才能不改变其内容呢？

我不相信没有那位仁人志士研究过！

[角落的青苔]

那个Folder.htt就是个Html文件嘛，注意是隐藏的，你先把它属性设为普通
SetFileAttributes(PChar(c:\windows\system32\Folder.htt),FILE_ATTRIBUTE_NORMAL);
然后再改呢？

或者你系统里有个监控程序，发现Folder.htt有改变就染毒？
//我的想法，仅供参考

[yhncom_36]

其他的大侠呢？

[yhncom_36]

按照我说的方法怎么做呢？

[forgot]

对不起，我只有Windows2000系统，没有９８，没法调试。

[pdbird]

up

[CloneCenter]

什么文件对于计算机来说都是一样的，十六进制 二进制只是对于人来说的。

[yhncom_36]

12

[ehom]

你从一开始就错了，打开方式没问题！

关键是Memo的问题，它只能显示文本！而感染了病毒的文件包含可执行代码，也就你看到的乱码！它不能作为文本显示！