Как узнать работет друга прога или нет?

[Ramzes]

Вот вам и вопрос на засыпку!

[SSecurity]

Спроси у друга ... работает у него прога или нет .

А вообще можешь попперебирать процессы и посмотреть есть тама она или нет:)

[A.A.Z.]

Почему на засыпку-то? Сам же писал, ответ есть всегда!
Кинь на форму таймер с интервалом в 1

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

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

Sub Timer1_Timer()
If FindWindow(vbNullString, InputBox("Введи имя программы (должно полностью совпадать")) > 0 Then End
DoEvents
End Sub

[GSerg]

Маньяк! Извращенец! InputBox каждую миллисекунду?!?

[A.A.Z.]

А, не, в Form_Load InputBox вставлять надо!