Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> 2 окна с 1 именем, убить 2ое окно если 1 уже запущено 
:(
    Опции темы
Iww
Дата 26.4.2009, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 2.4.2008

Репутация: нет
Всего: нет
Здравствуйте!
У меня есть программа, которая при открытии должна проверять есть ли уже запущенная копия (экземпляр) этой программы т.е. чтобы 2 программы нельзя было запустить.
Вот я пытался сделать, но не получилось....

Код

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim hWndActive, window As Long

Private Sub Form_Load()
window = FindWindow(vbNullString, "MyWindow")
hWndActive = GetForegroundWindow()
If (window <> 0) Then
     If hWndActive = window Then
          Text1.text = "1 program is running"
     Else
          Text1.text = "2 programs are running"
          Unload Me  ' тобишь, если программа уже запущена - выключить ту, которую мы только что запустили
     End If
End If
End Sub


С Уважением, Иван!
PM MAIL   Вверх
Akina
Дата 26.4.2009, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
FAQ - VB - FAQ - Окна 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
neic
Дата 26.4.2009, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7
Код

If App.PrevInstance = True Then
MsgBox "Программа уже запущена"
End
End If 
PM MAIL WWW ICQ Skype   Вверх
Iww
Дата 26.4.2009, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 2.4.2008

Репутация: нет
Всего: нет
Большое спасибо

Это сообщение отредактировал(а) Iww - 26.4.2009, 22:44
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1148 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.