Как показать первую копию программы, если запускается вторая? - Разное - Интересные решения для программистов - Примеры кода

Разное → Как показать первую копию программы, если запускается вторая? → Visual Basic

Данный пример показывает, как можно показать первую копию программы, при попытке запустить еще одну копию этой же программы. Создайте стандартный EXE-проект. На форме разместите один элемент CommandButton, назовите его cmdBeOrNotToBe и вставьте следующий код:

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Private Const SW_RESTORE = 9
Private Const WM_SETTEXT = &HC
Private Const BM_CLICK = &HF5

Private Sub Form_Load()
 Dim h As Long, hButton As Long
 Dim strCaption As String
 cmdBeOrNotToBe.Visible = False
 strCaption = "Моя программа"
 
 If App.PrevInstance Then
  h = FindWindow(vbNullString, ByVal strCaption)
  ActivateWindow h
  hButton = FindWindowEx(h, 0, vbNullString, ByVal "MyProgramIsBe")
  If hButton <> 0 Then SendMessage hButton, BM_CLICK, 0, ByVal 0&
  MsgBox "Программа уже запущена!", vbCritical
  End
  Exit Sub
 Else
  Me.Caption = strCaption
  cmdBeOrNotToBe.Caption = "MyProgramIsBe"
 End If

End Sub

Private Sub cmdBeOrNotToBe_Click()
 Me.Show
 Me.WindowState = vbMaximized
End Sub

Private Sub ActivateWindow(h As Long)
 If h Then
  If IsIconic(h) Then
   Call ShowWindow(h, SW_RESTORE)
  End If
  Call SetForegroundWindow(h)
 Else
  Exit Sub
 End If
End Sub

application, execute, singleton, vb, visual basic

KOS_MOS

unknown

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Разное → Как показать первую копию программы, если запускается вторая? → Visual Basic Данный пример показывает, как можно показать первую копию программы, при попытке запустить еще одну копию этой же программы. Создайте стандартный EXE-проект. На форме разместите один элемент CommandButton, назовите его cmdBeOrNotToBe и вставьте следующий код: Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const SW_RESTORE = 9 Private Const WM_SETTEXT = &HC Private Const BM_CLICK = &HF5 Private Sub Form_Load() Dim h As Long, hButton As Long Dim strCaption As String cmdBeOrNotToBe.Visible = False strCaption = "Моя программа" If App.PrevInstance Then h = FindWindow(vbNullString, ByVal strCaption) ActivateWindow h hButton = FindWindowEx(h, 0, vbNullString, ByVal "MyProgramIsBe") If hButton <> 0 Then SendMessage hButton, BM_CLICK, 0, ByVal 0& MsgBox "Программа уже запущена!", vbCritical End Exit Sub Else Me.Caption = strCaption cmdBeOrNotToBe.Caption = "MyProgramIsBe" End If End Sub Private Sub cmdBeOrNotToBe_Click() Me.Show Me.WindowState = vbMaximized End Sub Private Sub ActivateWindow(h As Long) If h Then If IsIconic(h) Then Call ShowWindow(h, SW_RESTORE) End If Call SetForegroundWindow(h) Else Exit Sub End If End Sub application, execute, singleton, vb, visual basic KOS_MOS unknown 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt