怎样在批处理中得到程序的返回值？ ( 积分: 100 )

R

redclock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-10

• #1

我想用程序给批处理中传递返回值，我知道在批处理中要用
if errorlevel 1 goto xxx
但我不知道怎样用delphi传个值过去，我发现它的返回值总是0
用了ExitCode := 1或Halt(1)都不管用。

 

R

redclock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-10

• #2

我想用程序给批处理中传递返回值，我知道在批处理中要用
if errorlevel 1 goto xxx
但我不知道怎样用delphi传个值过去，我发现它的返回值总是0
用了ExitCode := 1或Halt(1)都不管用。

 

R

redclock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-12

• #3

请赐教

 

L

lich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-17

• #4

没问题啊,程序如下:
program test;

{$APPTYPE CONSOLE}

uses
Windows, SysUtils;

begin
ExitCode := 0;
end.


批处理如下:
test
if errorlevel 0 echo hello
pause