请教一下这个简单的控制台程序错在哪？

Question

无法运行，请教一下错在哪，谢谢。
program include_BAT;{$APPTYPE CONSOLE}uses
  SysUtils;
var
  nResult:integer //定义一个变量用来保存返回值begin
   nResult:=WinExec('test.bat',0) //运行外部程序,参数0表示不显示运行程序的窗口
   if  nResult > 31 then
    showmessage('运行成功')
   else
    showmessage('运行失败');  { TODO -oUser -cConsole Main : Insert code here }
end.

Answer 1

program Project1;{$APPTYPE CONSOLE}uses
  SysUtils,Dialogs,Windows; //要uses  Dialogs,Windowsvar
  nResult:integer; //定义一个变量用来保存返回值 //少了一个;号begin
   WinExec('test.bat',0); //运行外部程序,参数0表示不显示运行程序的窗口
   if  nResult > 31 then
    showmessage('运行成功')
   else
    showmessage('运行失败');  { TODO -oUser -cConsole Main : Insert code here }
end.

Answer 2

谢谢，这位兄弟，果然成功，我想请问一下，怎样知道某个函数要uses 某些部份的？
有没有完整的函数帮助列表啊？最好有部份汉化的。

Answer 3

再请问如何用对话框显示返回值呢？
我用 showmessage(nResult)提示出错。

Answer 4

运行是成功了，但是虽然winexec 参数为 0 但是，仍然出现了 cmd的黑框窗口。

Answer 5

{$APPTYPE CONSOLE}把这个去掉

Answer 6

1.怎样知道某个函数要uses 某些部份的? 凭经验或查手册
2.有没有完整的函数帮助列表啊？ 有.看delphi自带的HELP文档,汉化的肯定没有(有关帮助文档的汉化问题CSDN也讨论过多次了,要想学好编程就得先看懂E文文档),不过可先在书店买本基础的书看看
3.再请问如何用对话框显示返回值呢？可用
  ShowMessage(inttostr( nResult)); 
(但你的nResult没赋值)
4.你本身是console程序,当然会有黑框窗口,与winexec的sw_hide(0)无关.
  如果要隐藏控制台窗口及获取控制台程序的返回值,可参考我用C++写的(当然可改成delphi的): 
http://topic.csdn.net/t/20050326/17/3883795.html