爱好者在网上抄了网上一段代码运行出现错误,望指教(页 1) - Delphi论坛 - 编程论坛

lizhonglong 发表于 2007-9-21 10:39

爱好者在网上抄了网上一段代码运行出现错误,望指教

具体内容是这样说的:下面是详细实现过程：
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 ;
我用到我的机器上总是运行不了,我是个爱好者,望高手指点一下!!

anthony634 发表于 2007-9-21 12:58

运行不了是什么情况？提示 “指定的文件未找到”？程序是没问题的

lizhonglong 发表于 2007-9-22 06:31

运行的时候,说以下几行有错误: procedure TForm1.btn1Click ( Sender: TObject ) ;//这行是自动生成的。
 var nResult : Integer ;//定义运行结果变量 希望高手帮帮忙解决以下

yjxandsp 发表于 2007-9-23 16:55

我运行没有错误，你吧procedure TFrom1.btnClick改为procedure TForm1.Button1Click再运行试试看，运行之后点按钮就可以看到运行结果是‘指定的文件未找到’，如果你把代码里面有关‘指定的文件未找到’有关的if 那一段代码删除之后，运行的结果就会是‘未知错误’，这其实就已经是你的运行结果了啊！！你可以多试试几下！~

lizhonglong 发表于 2007-9-23 18:04

这个编程语言是我刚刚学,可能是我在运行的饿时候的哪儿出错了~!那也要谢谢4楼的那位兄弟了

anthony634 发表于 2007-10-8 23:27

晕倒，你没查查WinExec 这个函数是做什么呢？为什么遇到不了解的函数不查一下呢？？你肯定没查，不然你怎么会不知道这个函数执行了c:\1.bat 这个批处理呢？ 0表示隐藏cmd.exe的窗口，1是显示窗口，你吧nResult := WinExec ( 'c:\1.bat' , 0 ) ; 改为 nResult := WinExec ( 'c:\1.bat' , 1) ; 这样就可以看到运行效果了；
程序本身除了风格差之外，功能是好的， 操作方法：新建一个application, 在界面上放一个button,在onclick事件上拷贝你抄的代码，然后编译，编译通过后，在C盘下新建立一个 txt文件，在文件里粘贴一下的话 @echo hello pause 然后运行；你就会看到一个dos窗口显示hello的了。

xiaofkg 发表于 2007-10-19 09:09

楼主批评的对，虽然我不是问题的发生者，不过我接受楼主的批评。

页: [1]

编程论坛's Archiver

爱好者在网上抄了网上一段代码运行出现错误,望指教