Конференция VBStreets

**Max!** » 11.12.2003 (Чт) 19:33

Как отследить запуск проги ! Дапустим польз. пишет в Text1.text путь и имя проги каторую будет отслыживать мой проект! Если она была запущена то записывать время запуска в Text2.Text! Help :wink:

**MEMBER** » 11.12.2003 (Чт) 20:33

Если бы понял вопрос, попытался бы дать ответ. :)
Вы имеете ввиду, что ваша программа запускает какую-либо другую программу и пишет время запуска в текстбокс\файл?
Или вы хотите, чтобы ваша программа определила время, в которое была запущена другая программа?

**Max!** » 11.12.2003 (Чт) 21:01

Вот моя прога ее можно настроить под другую прогу (игру, и тд.) , тоесть она будет следить был ли запуск(была ли запущена) та прога и записывать время ее запуска! :cry:

**Max!** » 12.12.2003 (Пт) 21:18

Ну ктонить даите ответ! С уважением Max

**SeRRg** » 12.12.2003 (Пт) 21:33

Ну вообще-то можно использовать функцию
FindWindow, если известен заголовок окна.
Как только заголовок появился, значит программа запущена.
Или можно использовать более "навороченный вариант":
тоже самое, но с процессами.

**Max!** » 13.12.2003 (Сб) 4:12

А кодом можно? Дапустим есле пользователь знает заголовок окна , он записывает в Text1.text !

**Max!** » 13.12.2003 (Сб) 17:41

Help!

**Boris_BGB** » 13.12.2003 (Сб) 17:59

Нужно таймером отслеживать изменения в Ctrl+Alt+Del и если появилась новая задача, то записывать время и имя.
А если нужна конкретная прога, то сравниваешь перебором.
Max!:Земляк!

**SeRRg** » 13.12.2003 (Сб) 18:34

М-дааа...

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

Private Sub Timer1_Timer()
hwndd = FindWindow(vbNullString, "Заголовок")
If hwndd <> 0 Then MsgBox ("Прога была запущена в " & Time)
End Sub

Учись пользоваться Api и Api Viewer'ом в частности.

**Boris_BGB** » 13.12.2003 (Сб) 19:40

Нифига!
Compile Error:
Sub or Function not definedИ указывает на FindWindow

**SeRRg** » 13.12.2003 (Сб) 21:30

Будь оригинален! Удали эту строчку, например. :wink:

А вообще byVal lpWindowName as String пишется в одной
строке... :wink:

Можешь слово Private удалить...

А если и так не работает, то VB корявый!

**Max!** » 13.12.2003 (Сб) 23:51

Всем агромное спасибо! С уважением Max! :wink:

**Tok** » 19.12.2003 (Пт) 8:14

А как тогда сделать такое:
Я в Text1 записываю имя окна - все срабатывает, но если я незнаю полное название, а только часть (слово)? Как такой поиск сделать?

Пожалуйста подскажите (в коде :wink:

)! Очень нужно!

ЗЫ
Сорри за оффтопик.

Конференция VBStreets

Запуск проги!

Запуск проги!

Кто сейчас на конференции