Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование от Судьи [www.del5.da.ru] Выпуск от 9/05/2002 года


Информационный Канал Subscribe.Ru


- От Судьи -

 

- Основное месторасположение [http://del5.da.ru]

- Зеркало сайта [http://del50.by.ru]

- Mailto: [wadim274@permonline.ru]

 

Доброго времени суток, господа коллеги!

*****************************************

 

 

================================================================================

Сегодня мы разберем как закрыть программно другое приложение:

 

Исходный текст:

--------------------

procedure KillProgram(ClassName: PChar; WindowTitle: PChar);
const
PROCESS_TERMINATE = $0001;
var
ProcessHandle : THandle;
ProcessID: Integer;
TheWindow : HWND;
begin
TheWindow := FindWindow(PChar(ClassName), PChar(WindowTitle));
GetWindowThreadProcessID(TheWindow, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);
end;

================================================================================

 

Новости нашего сайта:

В данный момент новостей нет...

Ссылки на дружественные сайты:

- www.sourses.ru - Исходные тексты программ, огромное кол-во!

- www.delphi4all.narod.ru - хороший сайт

- www.chertenok.km.ru - очень хороший сайт по DELPHI

- www.delphi.da.ru - много faq-ов по Delphi

- www.delphi.mastak.ru - множество полезных вещей для DELPHI

- www.delphi4.boom.ru - без коментариев

- www.delphi5.boom.ru - полезный сайт

- www.delphi.boom.ru - полезный сайт

На последок:

- Анекдот

Едут в электричке две женщины: одна молодая, одна старая и трое
мужчин.
Заезжает состав в тоннель, раздается звук поцелуя, а вслед за ним -
звук пощечины.
Молодая думает: "Вот ее, старуху, целуют... Нет бы меня поцеловали!"
Старая думает: "Ишь ты, молодежь пошла. Целуются с первыми
встречными!"
Первый мужчина думает: "Еще раз в тоннель заедем - еще раз поцелую!"
Второй думает: "Еще раз поцелует - еще раз врежу!"
Третий думает: "Еще раз врежут - на следующей остановке сойду!"


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное