Delphi程序返回值

有位网友提出这样的问题：怎么给Delphi应用程序一个返回码，类似C的exit(-1)

经过尝试，得到结果：

Delphi的处理方式与C/C++有些不同，Delphi中对针对main或是WinMain函数的参数以及返回值的处理是通过system.pas中一些相应的变量及函数实现的。

其中程序的返回值定义在System.pas中的ExitCode.

所以，要想让程序返回值为1，则只需在程序中设置ExitCode := 1;即可。

如下测试代码：

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
begin
  ExitCode :=10 ;
end.

对返回值的测试：test.bat

@echo off
rem test1.exe 为使用c++写的程序,返回值为33
test1.exe
echo test1.exe return %errorlevel%

rem project2.exe为上边的代码实现的结果
project2.exe
echo project2.exe return %errorlevel%

执行结果：

test1.exe return 33
project2.exe return 10

说明：

本人以前也没有研究这个，但是在看到问题后感觉Delphi应该是可以解决的。于是通过使用debug工具跟踪，如下：

00403595   |.  FF15 24904000   |call dword ptr ds:[409024]
0040359B   |>  8B06            |mov eax,dword ptr ds:[esi]
0040359D   |.  50              |push eax                                 ; /ExitCode
0040359E   |.  E8 EDDAFFFF     |call <jmp.&kernel32.ExitProcess>        ; \ExitProcess

所以Delphi的程序是有一个全局变量的：ds[esi]

其实这个变量就是ExitCode.