VBNet - Форум - Как в .NET запретить запуск ещё одной копии про...

Вопрос: Как в .NET запретить запуск ещё одной копии про... Добавлено: 13.10.03 18:30

Автор вопроса: Denis2

Как в .NET запретить запуск ещё одной копии программы?
Попробовал:
Declarations
'Для запрещения запуска ещё одной копии программы
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Integer, ByVal wCmd As Integer) As Integer
Private Declare Function OpenIcon Lib "user32" (ByVal hWnd As Integer) As Integer
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Integer) As Integer
Const GW_HWNDPREV As Integer = 3
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As Integer) As Integer
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Integer, ByVal uExitCode As Integer) As Integer
Const PROCESS_QUERY_INFORMATION As Integer = 1024
Const PROCESS_VM_READ As Integer = 16
'==============================================================
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Form1.m_InitializingDefInstance() 'вот тут ошибка
'Запрещаем запуск ещё одной копии программы
Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Артём Л.

ICQ: 280044491

Вопросов: 43
Ответов: 227

Профиль | | #1

Добавлено: 13.10.03 18:41

дай мыло пример пришлю

Ответить

Номер ответа: 2 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #2	Добавлено: 14.10.03 09:54
	На gotdotnet.ru пару раз это обсуждалось. И в FAQ там, ИМХО, это есть. Посмотри ещё здесь: http://www.gotdotnet.ru/default.aspx?tmpl=board_thread&m_no=15661&d_no=44 Ответить

Номер ответа: 3
Автор ответа:

Flare

Вопросов: 0
Ответов: 2

Профиль | | #3

Добавлено: 15.10.03 17:57

А нафиг юзать API????????

If (UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then

MsgBox("Программа уже запущена", MsgBoxStyle.Exclamation, "Моя программа")

End

End If

Ответить

Страница: 1 |