Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

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

webpauk (2007-02-21 19:21:00) [1]
ладно, чел
вот тебе код:

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.

webpauk (2007-02-21 18:52:00) [2]
сдается мне, чел, что ты хочешь кому то попортить жизнь
и если этот кто-то открывает, типа Word, вот он приятно удивится такому приходу!!!
а еще наверно ті хочешь, чтобі твоя прога біла невидима?

RASkov (2007-02-21 18:51:00) [3]
> мне некоторые приложения, которые у меня иногда сами по
> себе открываются

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

KLAUS (2007-02-21 18:36:00) [4]
Впринципе сделать можешь, пускай твоя прога при запуске грузится и проверяет запуск тех или иных приложений!! Типа этого
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:35:00) [5]
Впринципе сделать можешь, пускай твоя прога при запуске грузится и проверяет запуск тех или иных приложений!! Типа этого
TheWindow := FindWindow(PChar('Название проги), PChar(название проги [CPU - main thread, module Project1]')) ;
GetWindowThreadProcessID(TheWindow, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);

novill (2007-02-21 14:49:00) [6]

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

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

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

Elen (2007-02-21 14:41:00) [7]

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

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

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

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

Lonix (2007-02-21 14:38:00) [8]
а как это можно сделать программно, мне просто интересно узнать как будет выглядеть код

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

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

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

Lonix (2007-02-21 14:36:00) [10]
нет

Lonix (2007-02-21 14:36:00) [11]
значит не существует такого кода? или вы не знаете?

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

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

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

Lonix (2007-02-21 14:33:00) [13]
просто хочу сделать программу которая блокировала бы мне некоторые приложения, которые у меня иногда сами по себе открываются. Чтобы моя прога всегда была в действии и ждала пока не откроется приложение для его блокировки

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

> Lonix (21.02.07 14:27)

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »