ник: час
Нашёл код в интернете.....
Написано - ччто всё будет путём, ан нет, не работает...
добавил строку - Dim ihWnd As Variant, не помогло
Для закрытия другой программы используйте следующий программный код в тексте своего приложения:
Title = "Программа А"
ihWnd = FindWindow(0&, Title) ' вот тут говорит, что функция не определена
ihTask = GetWindowTask(ihWnd)
iRet = PostAppMessage(ihTask, WM_QUIT, 0, 0&)
MsgBox "Внимание! Программа А закрывается"
|
В диспетчере задач виндовс прога записана как "z2usb_cvt.exe"