ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как завершить программу с нужным кодом завершения?
4 сообщений из 4, страница 1 из 1
как завершить программу с нужным кодом завершения?
    #32767620
Tur73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tur73
Гость
Помогите, кто знает:
как завершить программу с нужным кодом завершения в программе типа exe написанной на VB? Программа может и не содержать формы.
На VC++ я делаю:
int main(int argc, char* argv[])
{
return 20;
}
чтобы возвратить, например, инсталлятору Wise, код 20.
А как это же сделать в васике?
...
Рейтинг: 0 / 0
03.11.2004, 21:09:58
| Ответить | Цитировать | Написать  
как завершить программу с нужным кодом завершения?
    #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:31:49
| Ответить | Цитировать | Написать  
как завершить программу с нужным кодом завершения?
    #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, 21:37:09
| Ответить | Цитировать | Написать  
как завершить программу с нужным кодом завершения?
    #32767650
Tur73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tur73
Гость
Magnus23
Код: plaintext
1.
2.
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

ExitProcess  20

Magnus

Спасибо, работает.
...
Рейтинг: 0 / 0
03.11.2004, 22:08:06
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как завершить программу с нужным кодом завершения?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32767633&tid=2168671]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 29ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 188ms
total:  274ms
созд. / загр.: 274ms
x
x
Закрыть


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