Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Вырубит программу
 
 автор: час   (01.01.2010 в 23:04)   личное сообщение
 
 

Нашёл код в интернете.....
Написано - ччто всё будет путём, ан нет, не работает...
добавил строку - Dim ihWnd As Variant, не помогло

Для закрытия другой программы используйте следующий программный код в тексте своего приложения:

Title = "Программа А" 
ihWnd = FindWindow(0&, Title) '  вот тут говорит, что функция не определена
ihTask = GetWindowTask(ihWnd) 
iRet = PostAppMessage(ihTask, WM_QUIT, 0, 0&) 
MsgBox "Внимание! Программа А закрывается"


В диспетчере задач виндовс прога записана как "z2usb_cvt.exe"

  Ответить  
 
 автор: час   (01.01.2010 в 23:49)   личное сообщение
 
 

Попробую вот так
Shell "taskkill.exe /f /im z2usb_cvt.exe"
закоывает, только на 3-4 раз

  Ответить  
 
 автор: час   (01.01.2010 в 23:52)   личное сообщение
 
 

Хреново....

  Ответить  
 
 автор: ShadowOfSun   (02.01.2010 в 00:03)   личное сообщение
 
 

С новым годом
тебе не хватает строчки
примерно такой


Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long


потому, то это какая то WinAPI'шная функция

  Ответить  
 
 автор: час   (02.01.2010 в 00:16)   личное сообщение
 
 

Привет!!!!!!
С НОВЫМ ГОДОМ И тебя!!!!!!!!!!!!

  Ответить  
 
 автор: час   (02.01.2010 в 00:18)   личное сообщение
 
 

Всё нормально - вот так
Shell "taskkill.exe /f /im z2usb_cvt.exe"
Просто от той проги иконка какое то время висит в трее , но потом пропадает.
Так что решение наайдено, пора спать!!!!!!!!

  Ответить  
 
 автор: час   (02.01.2010 в 00:21)   личное сообщение
 
 

А по поводу
тебе не хватает строчки
====================
Я бы сказал короче
У меня не хватает!

  Ответить  
 
 автор: ShadowOfSun   (02.01.2010 в 00:27)   личное сообщение
 
 

Точнее ко всем трем функциям нужна явная декларация


Declare Function FindWindow Lib "User" (ByVal lpClassName As Any, ByVal _
lpWindowName As Any) As Integer
Declare Function GetWindowTask Lib "User" (ByVal hWnd As Integer) As Integer
Declare Function PostAppMessage Lib "User" (ByVal hTask As Integer, ByVal
wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Integer


примерно так

полный текст проги глянь по ссылке

http://www.pcreview.co.uk/forums/thread-2246592.php

  Ответить  
 
 автор: час   (02.01.2010 в 11:03)   личное сообщение
 
 

Глянул!!!
Эт я пробовал.......
И дикларировал и присваивал - а оно кричит:
не знаюя такой функции
Не верный аргумент.....
И т.д.

  Ответить  
 
 автор: ShadowOfSun   (02.01.2010 в 12:42)   личное сообщение
12 Кб.
 
 



ты прав - прога не шла
там текст был для 16 битной винды
держи рабочий пример

  Ответить  
 
 автор: час   (02.01.2010 в 14:41)   личное сообщение
 
 


Спасибо!!!!!

В данном примере мы закрываем нашу любимую Аську(ICQlite.exe)
Shell "Cmd /x/c taskkill /f /im ICQlite.exe", vbvhite

  Ответить  
 
 автор: Волшебник   (03.01.2010 в 17:08)   личное сообщение
 
 

ShadowOfSun,
Работает здорово!! Файл с любого места закрывает!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList