棘手的问题，请高手指点
发布时间：2010-02-06 |
1楼: 在一个软件的安装目录下有如下文件：setup.exe、install.ini、data1.cab、error.dat等等，在运行setup.exe后，它会读取install.ini、data1.cab、error.dat。当setup正在读取其中某个文件时，有没有办法记获取被读取的文件的具体信息，如：被读的文件名及读取的时间？？请高手指点 字串5 2楼: 被读取的文件名、时间？没弄懂你的意思
GetFileTime //文件时间 uses Windows;
字串9
3楼: procedure TForm1.Button1Click(Sender： TObject);
Var
hFile ： THandle;
FT ： TFileTime;
ST ： TSystemTime;
Begin
If Not OpenDialog1.Execute Then Exit;
hFile ：= FileOpen(OpenDialog1.FileName, fmOpenWrite or fmShareDenyNone);
GetFileTime(hFile, @FT, @FT, @FT);
FileTimeToSystemTime(FT, ST);
FileClose(hFile);
end; 字串5
4楼: 举个例子：
delphi7的安装目录下有如下文件：
setup.exe、DELPHI~1.cab、DSNAPC~1.cab、DCLMCN~1.cab、instmsiw.exe、instmsia.exe、Setup.ini、Borland Delphi 7.msi、0x0409.ini等等，那么当运行setup.exe启动安装程序时，在安装的过程中将会依次读取上面的文件包。我想知道在安装过程中，什么时间，读取了上面的哪个文件？ 字串2
5楼: 你的意思是运行另外一个程序，来检查Setup.exe的进度？ 字串6
6楼: 引用xianguo 你的意思是运行另外一个程序，来检查Setup.exe的进度？ 大概是这个意思，我运行的这个程序要求能检测到setup.exe读取的每一个文件 字串2 7楼: 没人知道吗？ 字串3 8楼: 你要做的是一个完美卸载软件，监时向系统安装了些什么文件是吧：）[：D]字串8
9楼: 引用 你要做的是一个完美卸载软件，监时向系统安装了些什么文件是吧：）[：D 不是，我做的这个程序是能够模拟一些安装程序的安装过程。包括安装时曾经读写过哪些文件，不包括注册表的读写。 字串5 10楼: 真的没人会吗？给点建议也是好的 字串7 11楼: 真的没人知道吗？ 字串8