编程论坛 → Delphi论坛

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

lizhonglong 发布于 2007-09-21 10:39， 1331 次点击

具体内容是这样说的:下面是详细实现过程：

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 ;

我用到我的机器上总是运行不了,我是个爱好者,望高手指点一下!!

6 回复

#2

anthony6342007-09-21 12:58

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

#3

lizhonglong2007-09-22 06:31

运行的时候,说以下几行有错误:
procedure TForm1.btn1Click ( Sender: TObject ) ;//这行是自动生成的。

var
nResult : Integer ;//定义运行结果变量
希望高手帮帮忙解决以下

#4

yjxandsp2007-09-23 16:55

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

#5

lizhonglong2007-09-23 18:04

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

#6

anthony6342007-10-08 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的了。

#7

xiaofkg2007-10-19 09:09

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

1