|
|
|
| Нашёл код в интернете.....
Написано - ччто всё будет путём, ан нет, не работает...
добавил строку - Dim ihWnd As Variant, не помогло
Для закрытия другой программы используйте следующий программный код в тексте своего приложения:
Title = "Программа А"
ihWnd = FindWindow(0&, Title) ' вот тут говорит, что функция не определена
ihTask = GetWindowTask(ihWnd)
iRet = PostAppMessage(ihTask, WM_QUIT, 0, 0&)
MsgBox "Внимание! Программа А закрывается"
|
В диспетчере задач виндовс прога записана как "z2usb_cvt.exe" | |
|
| |
|
|
|
| Попробую вот так
Shell "taskkill.exe /f /im z2usb_cvt.exe"
закоывает, только на 3-4 раз | |
|
| |
|
|
|
|
| С новым годом
тебе не хватает строчки
примерно такой
Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
|
потому, то это какая то WinAPI'шная функция | |
|
| |
|
|
|
| Привет!!!!!!
С НОВЫМ ГОДОМ И тебя!!!!!!!!!!!! | |
|
| |
|
|
|
|
|
|
| Глянул!!!
Эт я пробовал.......
И дикларировал и присваивал - а оно кричит:
не знаюя такой функции
Не верный аргумент.....
И т.д. | |
|
| |
|
|
|
|
|
| ShadowOfSun,
Работает здорово!! Файл с любого места закрывает! | |
|
| |