| Вопрос: Повторный запуск приложения | Добавлено: 23.11.07 14:00 |
Автор вопроса:  - MaAs† -™ | ICQ: 233628153 |
| Ответы | Всего ответов: 42 |
|
Номер ответа: 31 Автор ответа:  Stuart Вопросов: 5 Ответов: 152 |
Профиль | | #31 | Добавлено: 26.11.07 18:33 |
|
зы: в последнем варианте, программа вообще не должна запуститься никогда, исправь..
Она незапустится только если ты её будеш запускать из VB6 а если скомпилиш, то всё будет работать НОРМАЛЬНО!!!!!!! Вот держи исходник если тебе лень было самому запустить VB6 и проверить пример на практике!!! http://slil.ru/25151770 |
||
|
Номер ответа: 32 Автор ответа: StuartВопросов: 5 Ответов: 152 |
Профиль | | #32 | Добавлено: 26.11.07 21:25 |
Странно, чего то не кто нечего непишит, неужели Я был прав что моя программа работает НОРМ?
|
||
|
Номер ответа: 33 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #33 | Добавлено: 26.11.07 21:30 |
| В ПРОГРАММЕ ВИРУС. | ||
|
Номер ответа: 34 Автор ответа: StuartВопросов: 5 Ответов: 152 |
Профиль | | #34 | Добавлено: 26.11.07 22:36 |
|
В ПРОГРАММЕ ВИРУС.
Оо поверю только после того если это подтвердят хотябы 3 человека т.к у меня антивирус молчит. PS: Dark Brand, ты хочеш со всеми чтоли поругатся? давай тогда, понижай свой рейтинг у всех на глазах
|
||
|
Номер ответа: 35 Автор ответа:  shuffleАдминистратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #35 | Добавлено: 26.11.07 23:14 |
| Да, в программе вирус. | ||
|
Номер ответа: 36 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #36 | Добавлено: 26.11.07 23:23 |
|
Stuart, если изначально прогу переименовать не в MyProg, то она ниразу незапустится
И я смотрю ты незнаешь функции LCASE/UCASE.. Но не в этом дело. Печально то, что незная предметной области вопроса, ты всёравно не меняешь своей позиции, и настаиваешь на своём, несмотря на то, что были подсказки на правильный ответ, стоило только погуглить... Ну да ладно, я к такому тут давно уже привык, это не ты виноват, а положение форума среди аналогичных ему, всмысле что он не притягивает квалифицированных программистов, а притягивает таких как ты (ламером обзывать небуду) новичков
Эх.. скучно после 3 стр флуда на такой простой вопрос, всё же ставить точку на этом вопросе, после который разумеется продолжится оффтоп. Но и к этому тут все привыкли Так что ничего не остается сделать, как написать эту точку, вот она:
Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As SECURITY_ATTRIBUTES, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As Long Private Const ERROR_ALREADY_EXISTS = 183& Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Dim hMutex As Long Private Sub Form_Load() Dim sa As SECURITY_ATTRIBUTES sa.bInheritHandle = 1 sa.lpSecurityDescriptor = 0 sa.nLength = Len(sa) hMutex = CreateMutex(sa, False, "hcs app.previnstance research" 
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then MsgBox "Одна копия программы уже запущена! Данный экземпляр будет выгружен..." Unload Me End If End Sub Private Sub Form_Unload(Cancel As Integer) CloseHandle hMutex End Sub
|
||
|
Номер ответа: 37 Автор ответа: DocalICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #37 | Добавлено: 26.11.07 23:23 |
В програме вирус 
|
||
|
Номер ответа: 38 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #38 | Добавлено: 26.11.07 23:25 |
|
http://slil.ru/25151770 Кстати, точно вирус Подругому это назвать нельзя
|
||
|
Номер ответа: 39 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #39 | Добавлено: 27.11.07 09:00 |
| Вирус точняк. | ||
|
Номер ответа: 40 Автор ответа: StuartВопросов: 5 Ответов: 152 |
Профиль | | #40 | Добавлено: 27.11.07 10:38 |
| Мда, хотел как лучше а получилось гхм.. Ну вас всех нафиг пойду я отсюда. | ||
|
Номер ответа: 41 Автор ответа: StuartВопросов: 5 Ответов: 152 |
Профиль | | #41 | Добавлено: 27.11.07 11:02 |
| Последний вопрос, а можно какнить удалить свой профиль?, ото мне тут не нравится | ||
|
Номер ответа: 42 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #42 | Добавлено: 27.11.07 15:37 |
|
Да ладно нафига куда-то уходить?
Просто тебе ж показали что способ несовсем верный. |
||