Информация сайта компьютерной безопасности
<<< Hack Style >>>

Я думаю все знают что такое фаервол и с чем его едят так вот иногда бывает необходимым 
обезопасить себя и свою прогу от обнаружения при выходе в сеть
и для этого нам поможет несколько полезных примеров:

процедура убивающая приложение по имени заголовка окна и имени класса
последним можно пренебречь

procedure KKND(Classname : PChar; WindowTitle : PChar); 
var 
  Handle : THandle; 
  ID: Integer; 
  Window : HWND; 
begin 
  Window := FindWindow(Classname, WindowTitle); 
  GetWindowThreadProcessID(Window, @ID); 
  ProcessHandle := OpenProcess( $0001, FALSE, ID); 
  TerminateProcess(Handle,4); 
end;

пример вызова KKND(nil,PChar('Explorer'));

можно еще закрыть просто окно по имени (если прога сидит в трее то она при вызове этой функции туда и скроется а не закроется полностью)

PostMessage(FindWindow(Nil, 'Заголовок окна'), WM_QUIT, 0, 0);

пример

до implementation пишем
const names:array[1..3] of string = ('name1','name2','name3');

var
i:integer;
begin
for i:=1 to 3 do
begin
try
PostMessage(FindWindow(Nil, names[i]), WM_QUIT, 0, 0);
except
showmessage('ERROR !');
end;
end;

в массиве может быть сколько угодно названий

Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru