Форум: "Начинающим";
Текущий архив: 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