用于RAR密码暴力破解的源码-仅供参考 functionExtractArchive(ArcName:PChar;Mode:Integer):boolean; var hArcData:THandle; RHCode,PFCode:Integer; CmtBuf:array[0..Pred(16384)]ofChar; HeaderData:RARHeaderData; OpenArchiveData:RAROpenArchiveDataEx; Operation:Integer; begin OpenArchiveData.ArcName