Главная страница
    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.48 MB
Время: 0.085 c
1-1169040865
Strate
2007-01-17 16:34
2007.03.11
Потоки


2-1171717962
Evgeniy Gordeev
2007-02-17 16:12
2007.03.11
Проблемы с MS Outlook 2003


15-1171542537
Сало
2007-02-15 15:28
2007.03.11
Секта любителей Линукс атакует


1-1168934715
serg_new
2007-01-16 11:05
2007.03.11
Высота от текущей позиции до конца страницы (Word)


1-1168968633
Garacio
2007-01-16 20:30
2007.03.11
найти пустые ячейки в третьем столбце ListView по всем строкам





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский