命令行解压缩文件

命令行解压缩文件
   ShellExecute(Handle,'open',PChar('command.com'),
      PChar('/c '+ExtractFilePath(ParamStr(0))+'unrar x '+
      fabsdir+fupdatecab+' '+fabsdir),nil,sw_show);