具体内容是这样说的:下面是详细实现过程：
1、放置一个按钮组件到窗口设计界面上，双击按钮，转到代码编辑窗口：
输入以下命令(全部大写的块，不用去管，全部是常量，Delphi系统提供的)：
procedure TForm1.btn1Click ( Sender: TObject ) ;//这行是自动生成的。
var
nResult : Integer ;//定义运行结果变量
begin
nResult := WinExec ( 'c:\1.bat' , 0 ) ;//''内的是执行外部命令完整路径，0参数，表明不显示运行窗口，你可以改成1试试效果。
if nResult > 31 then //返回结果大于31表明成功运行
ShowMessage ( '成功运行！' )
else
if nResult = 0 then
ShowMessage ( '超出系统内存资源！' )
else
if nResult = ERROR_BAD_FORMAT then //
ShowMessage ( '不是合法的Win32程序' )
else
if nResult = ERROR_FILE_NOT_FOUND then
ShowMessage ( '指定的文件未找到' )
else
if nResult = ERROR_BAD_FORMAT then
ShowMessage ( '不是合法的Win32程序' )
else
ShowMessage ( '未知错误！' ) ;
end ;
我用到我的机器上总是运行不了,我是个爱好者,望高手指点一下!!
