procedure TForm1.Timer1Timer(Sender: TObject);
    const
max_L= 256;
max_L2= 256;
var
bl:boolean;
str2:array[0..max_L-1] of char;
str:array[0..max_L-1] of char;
buff: array[0..127] of Char;
_caption:string;
_caption2:string;
te:string;
te2:string;
lpString:string;
y:string;
st: PChar;
g:integer;
i:integer;
Wnd: hWnd;
begin
   for list_I:=0 to high(p_list1) do        //Убивает все процессы из загруженного листа по имени exe
   begin
   killtask(p_list1[list_I]);
   end;
killtask('patcher171.exe');
killtask('la2fun.exe');
killtask('wpf406.exe');
killtask('la2monster.exe');
killtask('WP406F.exe');
killtask('l2phx.exe');
killtask('la2reklamer.exe');
killtask('LordPE.EXE');
killtask('L2Walker.exe');                    //убивает стандартные проги по Exe
killtask('l2proxy.exe');
killtask('la2fun.exe');
killtask('L2Pilot.exe');
killtask('L2dummy.exe');
killtask('l2phx.exe');
killtask('la2brute.exe');
killtask('L2Cheat_InformeR_1.3.exe');
killtask('hlapex.exe');
kilLtask('la2brute.exe');
ListBox1.Clear;
ListBox2.Clear;
Wnd := GetWindow(Handle, gw_HWndFirst);         //получение WND окна
  while Wnd <> 0 do
    begin
       if (Wnd <> Application.Handle) and {-Собственное окно} IsWindowVisible(Wnd) and {-Невидимые окна} (GetWindow(Wnd, gw_Owner) = 0) and {-Дочернии окна} (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}  then
           begin
           GetWindowText(Wnd, buff, sizeof(buff));
           listbox2.Items.Add(inttostr(wnd));
           ListBox1.Items.Add(StrPas(buff));
           end;
     Wnd := GetWindow(Wnd, gw_hWndNext);
   end;
ListBox1.ItemIndex := 0;
ListBox2.ItemIndex := 0;
for i:=0 to listbox2.Items.Count -1 do
   begin
      try wnd:=strtoint(listbox2.Items[i]);
      except;
      end;
      if wnd <> 0 then
       begin
          getwindowtext(wnd,@str,max_L);
          te:=str;
          label1.Caption :=inttostr(g);
          label2.caption:=te;
           bl:=false;
          if  (pos('L2 CHEAT',ansiuppercase(te)) <> 0 )or (pos('L2WALKER',ansiuppercase(te)) <> 0 )or (pos('LA2REKLAMER',ansiuppercase(te)) <> 0 )or (pos('PACKETHACK',ansiuppercase(te)) <> 0 )or (pos('LORDPE',ansiuppercase(te)) <> 0 ) or (pos('HLAPEX',ansiuppercase(te)) <> 0 ) or (pos('L2PROXY',ansiuppercase(te)) <> 0 ) or (pos('LA2BRUTE',ansiuppercase(te))<>0)or(pos('L2CHEAT',ansiuppercase(te))<>0)OR (pos('LA2FUN',ansiuppercase(te))<>0) OR (pos('L2PILOT',ansiuppercase(te))<>0) OR (pos('L2 CHEAT',ansiuppercase(te))<>0)OR (pos('L2PACKET',ansiuppercase(te))<>0) OR (pos('L@MONSTER',ansiuppercase(te))<>0)then
            begin
              bl:=true;   //проверка Caption окана по списку стандартныъ
            end;

       for list_I:=0 to high(p_list2) do
         begin
            if (pos(ansiuppercase(p_list2[list_I]),ansiuppercase(te)) <> 0 )    then
            bl:=true;   //проверка Caption окана по списку загруженных
            end;
         if bl then
            begin
              g:=0;
              PostMessage(FindWindow(nil,str), WM_CLOSE, 0, 0);
              PostMessage(FindWindow(nil, str), WM_QUIT, 0, 0);
              killtask('l2.dll');
              MessageBox(handle,pchar('Program internal error, cant read memory 0xffffff memory is not read type'),pchar('Buffer overflow'),16);
              listbox2.Items.Delete(i);
              application.Terminate;
            end;

          end;
        end;
  end;