Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.044 c
15-1171479750
Dfre
2007-02-14 22:02
2007.03.11
"Святой Влаентин" по-анлийски - "Saint Valentin"?


4-1162283659
Суслик
2006-10-31 11:34
2007.03.11
TInplaceEdit.Invalidate - помогите понять, что делает метод.


2-1172077776
KLAUS
2007-02-21 20:09
2007.03.11
Секции в файле


2-1171957505
Wall
2007-02-20 10:45
2007.03.11
текущая директория


15-1171521922
Александр Иванов
2007-02-15 09:45
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский