Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как завершить программу с нужным кодом завершения? / 4 сообщений из 4, страница 1 из 1
03.11.2004, 21:09:58
    #32767620
Tur73
Tur73
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как завершить программу с нужным кодом завершения?
Помогите, кто знает:
как завершить программу с нужным кодом завершения в программе типа exe написанной на VB? Программа может и не содержать формы.
На VC++ я делаю:
int main(int argc, char* argv[])
{
return 20;
}
чтобы возвратить, например, инсталлятору Wise, код 20.
А как это же сделать в васике?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 21:31:49
    #32767633
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как завершить программу с нужным кодом завершения?
Код: plaintext
1.
2.
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

ExitProcess  20

Magnus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 21:37:09
    #32767637
Alexey Kudinov
Alexey Kudinov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как завершить программу с нужным кодом завершения?
... с оговоркой
PRB: Call to ExitProcess() from Visual Basic Application Hinders Process Exit
MSIf a Visual Basic application makes a direct call to the ExitProcess() API, the process may not properly exit. In some instances, a call to ExitProcess() will even cause an access violation or cause the process to deadlock.

Calling ExitProcess() from a Visual Basic application is unsupported.

но другого пути нет
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Option Explicit

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'end this process
    ExitProcess GetExitCodeProcess(GetCurrentProcess,  0 )
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 22:08:06
    #32767650
Tur73
Tur73
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как завершить программу с нужным кодом завершения?
Magnus23
Код: plaintext
1.
2.
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

ExitProcess  20

Magnus

Спасибо, работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как завершить программу с нужным кодом завершения? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 293ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2168671]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 30ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 21ms
get tp. blocked users:
 1ms
others: 210ms
total:  293ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]