Как получить handle

[exit]

Как получить handle не формы, а именно проекта который запускается. Также емть ещё одно условие этот проект запускается не первый раз, т.е есть уже запущенные такие же проекты с теми же именами, а надо определить handle именно запускаемого проекта.

[Alfa]

Всмысле. Что за проект?

[TimeKeeper]

Что-нибудь с App. Точнее не могу, сейчас под рукой нет VB.

App.Path - путь запускаемой программы

Посмотри остальные свойства.

[TimeKeeper]

Ага, вот все свойства, а последнее - то, что тебе нужно.

MSDN
http://msdn.microsoft.com/library/defau ... jApp_P.asp
Comments Property
CompanyName Property
EXEName Property
FileDescription Property
HelpFile Property (App, CommonDialog, MenuLine)
LegalCopyright Property
LegalTrademarks Property
LogMode Property
LogPath Property
Major Property
Minor Property
NonModalAllowed Property
OLERequestPendingMsgText Property
OLERequestPendingMsgTitle Property
OLERequestPendingTimeout Property
OLEServerBusyMsgText Property
OLEServerBusyMsgTitle Property
OLEServerBusyRaiseError Property
OLEServerBusyTimeout Property
Path Property
PrevInstance Property
ProductName Property
RetainedProject Property
Revision Property
StartMode Property
TaskVisible Property
ThreadID Property
Title Property
UnattendedApp Property
hInstance Property

[exit]

TimeKeeper спасибо, но столкнулся с новой проблемой: попытался закрыть по hInstance через
Public Const SC_CLOSE = &HF060&
Public Const WM_SYSCOMMAND = &H112&
SendMessage App.hInstance, WM_SYSCOMMAND, SC_CLOSE, 0
не получается

[Firestorm]

Как получить handle не формы, а именно проекта который запускается. Также емть ещё одно условие этот проект запускается не первый раз, т.е есть уже запущенные такие же проекты с теми же именами, а надо определить handle именно запускаемого проекта.

может проверять по запущенным процессам?
вообще смысл этого кода в чём? для того чтобы не запускать вторую копию?

[exit]

Firestorm смысл этого кода в том, при запуске он проверяет запущена ли эта программа ранее и есле запущена закрывает её.

[Firestorm]

ну вот думаю вполне реально проверять в списке процессов...
а это не подходит?

Код: Выделить всё

Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "Обломись!"
End
End If


[exit]

Firestorm то приложение которое я запустил последний раз должно остаться, а предыдущие(и) закрыться. И заодно не мог бы ты мне сказать что такое hInstance и с его помощью можно сделать(например то что мне нужно). И ещё вопрос как закрыть приложение (именно моё)

[RayShade]

hInstsance это дескриптор колпии приложения.

НО чтобы закрыть приложение с помощью SendMessage тебе нужен не он, а дескриптор окна - hWnd.

Рлнако зарытие приложения таким робразом не лучший вариант. Лучше использовать TerminateProcess. А для него понадобится, AFAIR, PID, который можно получить через EnumProcesses.

[ToT]

По-моему надо так:
Определяешь, запущена ли прога
Если да то закрываешь ее с помощью TerminateProcess или чего -то подобного, но не через SendMessage. Так как прога твоя, то наяти все что нужно для закрытия думаю сможешь.