Код возврата приложения

[Butter]

Нужно, чтобы программа возвращала некий код возврата, который будет смотреть другое уже существуещее приложение, типа 0 - если все ОК, -1 если возникло некое условие.
типа вроде
if a=0 then
' Вернуть код 0
else
' Вернуть код -1
endif


Читаю help, читаю. Переклинило уже. Ничего не пойму.
Можно ли этод код проверить из cmd файла, в какую переменную он будет возвращен?

Спасибо

[Trojan Lord]

1. т.е. тебе нужно проверить запущено оно или нет ?
2. записывать данные с №1-го приложения в любой файл XX, прочитать данные из файла XX в приложение №2. ??

[Butter]

Нет. Уже готовое приложение, которое я не могу изменить, должно запускать мою прогу. Моя прога выполняет свою фунциональность, и если все ОК возвращает 0, если все плохо, возврацает -1 или еще что.

Default handling of external program return codes enabled
All return codes ather then 0 are treated as cause of denial

Это приложение если получает от моей проги работает по одному алгоритму, если -1 по другому.

В досе, например моя прога на FORTRANe вернула бы код 9 оператором STOP 9. Из bat файла я проверил бы
if errorlevel 9 goto metka.
А как с этим кодом возврата работать в VB. Не писал я толком под Windows ничего. Все в Accesse.
Подскажите

[GoGosha]

Нет. Уже готовое приложение, которое я не могу изменить, должно запускать мою прогу. Моя прога выполняет свою фунциональность, и если все ОК возвращает 0, если все плохо, возврацает -1 или еще что.

Default handling of external program return codes enabled
All return codes ather then 0 are treated as cause of denial

Это приложение если получает от моей проги работает по одному алгоритму, если -1 по другому.

В досе, например моя прога на FORTRANe вернула бы код 9 оператором STOP 9. Из bat файла я проверил бы
if errorlevel 9 goto metka.
А как с этим кодом возврата работать в VB. Не писал я толком под Windows ничего. Все в Accesse.
Подскажите

Если приложение, которое запускает твоё тоже на VB то можно-Винсок.

[Butter]

Ничего не понял.....

[GoGosha]

Ничего не понял.....

То есть ты хочешь поступить с процессом, как с функцией: указал какой-нибудь Api:
ApiFunction (AddressOf "MyProgram.exe")
Тогда не знаю , но всё таки знай - программа- это не функция

А МОЖЕТ НАПИСАТЬ БИБЛИАТЕКУ НА С++, КОТОРАЯ В main() делает return 1;(не знаю сработает ли это и можно ли вообще так)

[Butter]

Сам нашел....
из helpa

Main can also return an Integer value, which the operating system uses as the exit code for your program. Other programs can test this code by examining the Windows ERRORLEVEL value. To return an exit code, you must declare Main as a Function procedure instead of a Sub procedure, as follows:
Function Main() As Integer
MsgBox("Hello World!") ' Display message on computer screen.
Return 0 ' Zero usually means successful completion.
End Function

[GoGosha]

Сам нашел....
из helpa

Main can also return an Integer value, which the operating system uses as the exit code for your program. Other programs can test this code by examining the Windows ERRORLEVEL value. To return an exit code, you must declare Main as a Function procedure instead of a Sub procedure, as follows:
Function Main() As Integer
MsgBox("Hello World!") ' Display message on computer screen.
Return 0 ' Zero usually means successful completion.
End Function

Return с нулём пишет ошибку.
И вообще Main- это не функция а Sub должен быть