Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.11;
Скачать: CL | DM;

Вниз

Как блокировать чужое приложение   Найти похожие ветки 

 
Lonix   (2007-02-21 14:27) [0]

Здравствуйте! У меня такой вопрос: мы открываем приложение (Word) а наша программа его блокирует (т.е. не открывает), а открывает что нибудь другое к примеру winamp.

Заранее спасибо!


 
Elen ©   (2007-02-21 14:28) [1]


> Lonix   (21.02.07 14:27)

А зачем блокировать?


 
Lonix   (2007-02-21 14:33) [2]

просто хочу сделать программу которая блокировала бы мне некоторые приложения, которые у меня иногда сами по себе открываются. Чтобы моя прога всегда была в действии и ждала пока не откроется приложение для его блокировки


 
Ученик чародея ©   (2007-02-21 14:34) [3]


>
> Lonix   (21.02.07 14:27)
>
> Здравствуйте! У меня такой вопрос: мы открываем приложение
> (Word) а наша программа его блокирует (т.е. не открывает),
>  а открывает что нибудь другое к примеру winamp.


А вы ноктюрн сыграть могли бы на флейте водосточных труб?


 
Lonix   (2007-02-21 14:36) [4]

нет


 
Lonix   (2007-02-21 14:36) [5]

значит не существует такого кода? или вы не знаете?


 
Ученик чародея ©   (2007-02-21 14:37) [6]


> Lonix   (21.02.07 14:36) [4]
>
> нет


Ну так делайте по человечески, перенастройте ассоциации файлов в системе. на *.doc сделать запуск winamp...


 
Lonix   (2007-02-21 14:38) [7]

а как это можно сделать программно, мне просто интересно узнать как будет выглядеть код


 
Elen ©   (2007-02-21 14:41) [8]


> значит не существует такого кода?

Конечно существует. смотри его на первом телеканале в 1...дцать часов 2...цать минут. :)

>  приложения, которые у меня иногда сами по себе открываются.

Класс!. Я тоже себе такую оську хочу. с AI.


 
novill ©   (2007-02-21 14:49) [9]


> [5] Lonix   (21.02.07 14:36)
> значит не существует такого кода? или вы не знаете?

Есть, знаю.
Смотри архивы форума от за октябрь-начало ноября.

А вот если  "приложения... иногда сами по себе открываются."  тебе стоит задуматься о "здоровьи" своей системы.


 
KLAUS ©   (2007-02-21 18:35) [10]

Впринципе сделать можешь, пускай твоя прога при запуске грузится и проверяет запуск тех или иных приложений!! Типа этого
TheWindow := FindWindow(PChar("Название проги), PChar(название проги [CPU - main thread, module Project1]")) ;
 GetWindowThreadProcessID(TheWindow, @ProcessID);
 ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
 TerminateProcess(ProcessHandle,4);


 
KLAUS ©   (2007-02-21 18:36) [11]

Впринципе сделать можешь, пускай твоя прога при запуске грузится и проверяет запуск тех или иных приложений!! Типа этого

TheWindow := FindWindow(PChar("Название проги), PChar(название проги [CPU - main thread, module Project1]")) ;
 GetWindowThreadProcessID(TheWindow, @ProcessID);
 ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
 TerminateProcess(ProcessHandle,4);


 
RASkov   (2007-02-21 18:51) [12]

> мне некоторые приложения, которые у меня иногда сами по
> себе открываются

Вирусов надо мочить, а не заниматься ерундой по созданию никчемных программ....


 
webpauk   (2007-02-21 18:52) [13]

сдается мне, чел, что ты хочешь кому то попортить жизнь
и если этот кто-то открывает, типа Word, вот он приятно удивится такому приходу!!!
а еще наверно ті хочешь, чтобі твоя прога біла невидима?


 
webpauk   (2007-02-21 19:21) [14]

ладно, чел
вот тебе код:

program Project1;

uses ShellApi, Windows;

var
 TheWindow, ProcessHandle: THandle;
 ProcessID: cardinal;
begin
 while True do
 begin
   TheWindow:=FindWindow("Word ClassName", nil) ;
   if TheWindow<>0 then
   begin
     GetWindowThreadProcessID(TheWindow, @ProcessID);
     ProcessHandle:=OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
     TerminateProcess(ProcessHandle, 4);

     ShellExecute(0, "open", "regedit", nil, nil, SW_SHOWNORMAL);
   end;
 end;
end.



Страницы: 1 вся ветка

Текущий архив: 2007.03.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
2-1171968886
Alek_1
2007-02-20 13:54
2007.03.11
Как ускорить обработку скл запросов?


15-1171455223
Kenny
2007-02-14 15:13
2007.03.11
Monitor


2-1172057565
Cara
2007-02-21 14:32
2007.03.11
Закрытие формы.


2-1171800538
Medusa__
2007-02-18 15:08
2007.03.11
Создание объектов runtime


15-1171440613
Джо
2007-02-14 11:10
2007.03.11
Помогите перевести на английский





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский