//转自http://www.oschina.net/code/snippet_136241_3980 1 procedure CheckResult(b: Boolean); begin if not b then raise Exception.Create(SysErrorMessage(GetLastError)); end; function RunDOS(const CommandLine: string): string; var HRead, HWrite: THandle; S
http://blog.csdn.net/nerdy/article/details/8969189 [delphi]运行cmd命令,并取得输出字符 标签: delphiCMD命令 2013-05-24 11:36 1529人阅读 评论(0) 收藏 举报 分类: delphi实例(2) procedure CheckResult(b: Boolean); begin if not b then raise Exception.Create(SysErrorMessage(GetLastEr