Управлям форточками

Поделиться114.04.2011 19:59:48

Автор: Пётр
Активный участник
Зарегистрирован: 14.06.2009
Приглашений: 0
Сообщений: 2944
Уважение: [+96/-5]
Позитив: [+1/-0]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Сегодня 20:55:37

Как то написал прогу для управления форточками (окошками). Она предоставляет разные данные об окне и позволяет изменять их свойства.
Может кому приходится.

Для компиляции программы нужны библиотеки Droopy и PBOSL. Собирал в PB 4.31.
Скачать файлы

0

Поделиться217.04.2011 18:47:17

Автор: mirashic
Активный участник
Зарегистрирован: 02.02.2010
Приглашений: 0
Сообщений: 306
Уважение: [+1/-0]
Позитив: [+0/-0]
Провел на форуме:
9 дней 5 часов
Последний визит:
27.04.2013 21:06:20

Написал утилиту (основываюсь на API исходника ) для управления перемещением окон.
Для своего нетбука. У него диагональ 8,9 дюймов и многие приложения не помещаются по высоте...

Вроде всё работает, писал для инструментальных окон программы Photoshop.
Окна перемещаются, но всё что создаётся ниже экрана (в Photoshop) при перемещении вверх не перерисовывается, то есть окна получаются обрезанные...

0

Поделиться317.04.2011 19:06:02

Автор: Пётр
Активный участник
Зарегистрирован: 14.06.2009
Приглашений: 0
Сообщений: 2944
Уважение: [+96/-5]
Позитив: [+1/-0]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Сегодня 20:55:37

mirashic написал(а):

окна получаются обрезанные

Это винда режет.

0

Поделиться416.05.2013 03:30:49

Автор: kaaamid
Участник
Зарегистрирован: 08.01.2013
Приглашений: 0
Сообщений: 17
Уважение: [+0/-0]
Позитив: [+2/-0]
Провел на форуме:
6 часов 36 минут
Последний визит:
18.04.2014 20:53:59

Пётр
Здравствуйте , пересмотрел множество кодов имеющих отношение к хендлам окон но не могу найти ответа на свой вопрос
Вопрос в следующем - как мне отдельно от всего получить путь до папки по хендлу - это есть в вашей программе
мне нужна всего одна - в отладчике
Возможно ли это? если возможно буду очень признателен
Заранее спасибо !

Отредактировано kaaamid (16.05.2013 08:48:27)

0

Поделиться516.05.2013 11:21:44

Автор: Пётр
Активный участник
Зарегистрирован: 14.06.2009
Приглашений: 0
Сообщений: 2944
Уважение: [+96/-5]
Позитив: [+1/-0]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Сегодня 20:55:37

Нужно найти окно проводника. Потом найти в нем контрол с требуемым классом. В окне видно что он начинается с toolbarwindow. А окончание скрыто.

0

Поделиться616.05.2013 11:26:57

Автор: kaaamid
Участник
Зарегистрирован: 08.01.2013
Приглашений: 0
Сообщений: 17
Уважение: [+0/-0]
Позитив: [+2/-0]
Провел на форуме:
6 часов 36 минут
Последний визит:
18.04.2014 20:53:59

Окончание toolbarwindow32

Пётр написал(а):

Нужно найти окно проводника. Потом найти в нем контрол с требуемым классом.

можно чуть подробнее - как это сделать ???
Спасибо

0

Поделиться716.05.2013 11:48:05

Автор: Пётр
Активный участник
Зарегистрирован: 14.06.2009
Приглашений: 0
Сообщений: 2944
Уважение: [+96/-5]
Позитив: [+1/-0]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Сегодня 20:55:37

kaaamid написал(а):

как это сделать

Поиск окон проводника.

Код:

Repeat
  WinName.s=WindowsEnum()
  If WinName=""
    Break
  EndIf
  hWnd=GetHandle(WinName)
  PID=GetProcessPIDfromHWND(hWnd)
  If PID
    If LCase(GetProcessName(PID))="explorer.exe"
      Debug WinName
    EndIf
  EndIf
ForEver

Поиск контрола.

Код:

Procedure.l enumChildren(hwnd, lParam) ; Поиск дочерних окон, принадлежащих главному
  Protected Dim Buff.a(258)
  
  If hwnd     
     
    Len=GetClassName_(hwnd, @Buff(), 256)
    classText.s = LCase(PeekS(@Buff(), Len))
    If classText = "toolbarwindow32"
      
      Len=SendMessage_(hwnd,#WM_GETTEXT,256,@Buff())
      MainText.s=PeekS(@Buff(), Len)
      If MainText
        Debug MainText
      EndIf
      
    EndIf
    
    ProcedureReturn 1 
  Else 
    ProcedureReturn 0 
  EndIf 
EndProcedure

Repeat
  WinName.s=WindowsEnum()
  If WinName=""
    Break
  EndIf
  hWnd=GetHandle(WinName)
  PID=GetProcessPIDfromHWND(hWnd)
  If PID
    If LCase(GetProcessName(PID))="explorer.exe"
      Debug WinName
      EnumChildWindows_(hWnd, @enumChildren(), 0)
      Debug ""
    EndIf
  EndIf
ForEver

0