UnRar.ArchiveFile:=ExtractFilePath(Application.ExeName)+'\Bin.rar';
UnRar.ExtractDir:=ExtractFilePath(Application.ExeName); UnRar.FileSpec.Add('*.*');
UnRar.RecurseDirs := True;
UnRar.Extract;
在我的机器上运行是好的,可是放到别人的机器上就不起作用了。用的组件是ZTV的TUnRar.
UnRar.ExtractDir:=ExtractFilePath(Application.ExeName); UnRar.FileSpec.Add('*.*');
UnRar.RecurseDirs := True;
UnRar.Extract;
在我的机器上运行是好的,可是放到别人的机器上就不起作用了。用的组件是ZTV的TUnRar.
注:
VCLZip 都是个很不错的压缩控件!