[delphi]运行cmd命令,并取得输出字符
procedure CheckResult(b: Boolean);begin if not b then raise Exception.Create(SysErrorMessage(GetLastError));end; function RunDOS(const CommandLine: string): string;var HRead, HWrite: THan