procedure TNewThread3.WriteHandle;
var
  Wnd: hWnd;
  buff: array[0..255] of Char;
begin
ConToDB3;

MyQuery3 := TADQuery.Create(nil);
MyQuery3.Connection := ADConnection3;
MyQuery3.Transaction := ADTransaction3;

While true do
 begin
  Wnd := GetWindow(handle, gw_HWndFirst);

 while Wnd <> 0 do
  begin
    if  IsWindowVisible(Wnd) and {-&#205;&#229;&#226;&#232;&#228;&#232;&#236;&#251;&#229; &#238;&#234;&#237;&#224;}
       (GetWindow(Wnd, gw_Owner) = 0) and {-&#196;&#238;&#247;&#229;&#240;&#237;&#232;&#232; &#238;&#234;&#237;&#224;}
       (GetWindowText(Wnd, buff, SizeOf(buff)) <> 0) {-&#206;&#234;&#237;&#224; &#225;&#229;&#231; &#231;&#224;&#227;&#238;&#235;&#238;&#226;&#234;&#238;&#226;} then
        begin

          if ADConnection3.Connected then
            begin
              MyQuery3.Transaction.StartTransaction;
            try
              GetWindowText(Wnd, buff, SizeOf(buff));
              MyQuery3.Close;
              MyQuery3.SQL.Text := 'Insert into handle (handle, Date_time)'
                                             +' values (:pHandle, :pDate_time);';
              MyQuery3.Prepare;
              MyQuery3.ParamByName('pHandle').Value := StrPas(buff);
              MyQuery3.ParamByName('pDate_time').AsDateTime := Now;
              MyQuery3.ExecSQL;
              MyQuery3.Transaction.Commit;
            except
              on E: Exception do
                begin
                  MyQuery3.Transaction.Rollback;
                  MSServisPK.AddLog(DateTimeToStr(Now) + ': &#206;&#248;&#232;&#225;&#234;&#224; &#239;&#240;&#232; &#231;&#224;&#239;&#238;&#235;&#237;&#229;&#237;&#232;&#232; Handl-&#238;&#226;!' + E.Classname + ':' + E.Message, 'SerError.txt');
                end; // End Exception
            end; // End try
           end; // End     if ADConnection3.Connected then

           if not ADConnection3.Connected then
            begin
              GetWindowText(Wnd, buff, SizeOf(buff));
              MSServisPK.AddLog('idp' + ';' + StrPas(buff) + ';' + DateTimeToStr(now), 'Log.txt');
            end;
        end; // End if
      Wnd := GetWindow(Wnd, gw_hWndNext);
  end; // End while Wnd <> 0
  sleep(10000);
end; //End while not false
end;

procedure TNewThread3.Execute;
begin
try
  Success3:=CoInitialize(nil);
    try
      WriteHandle;
    finally
      case Success3 of
        S_OK, S_FALSE: CoUninitialize;
      end;
    end;
  except
    on E:Exception do
        MSServisPK.AddLog(DateTimeToStr(Now) + ': Îøèáêà â ñîçäàíèè ïîòîêà ¹3. ' + E.Classname + ':' + E.Message, 'SerError.txt');
  end;
end;