Главная страница
    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.041 c
11-1150407283
parovoZZ
2006-06-16 01:34
2007.03.11
Demo2Forms - не понял юмора


2-1172068307
Muhh
2007-02-21 17:31
2007.03.11
Как возводить в степень?


2-1171473737
Washington
2007-02-14 20:22
2007.03.11
ADOQuery и INI-файлы


15-1171391468
maxmaxov
2007-02-13 21:31
2007.03.11
Sky Link problems


2-1171627392
Кевларвестов Семен
2007-02-16 15:03
2007.03.11
Запретить редактирование Word в TWebbrowser





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