Как получить список окон запущенных приложений?

☑

0 DenIv

22.07.09

✎

10:52

Добрый день господа!
Собсно сабж, из 1с8 возможно получение списка?

1 DenIv

22.07.09

✎

10:54

давно небыл, по ходу мельчает форум :(, сполшной флуд, типа помогите купить велосипед, мимолетный секс, и.т.д, жаль...

2 Rie

22.07.09

✎

10:58

(0) WScript не поможет?

3 DenIv

22.07.09

✎

11:32

поможет, пример можно?

4 GedKo

22.07.09

✎

11:48

tasklist.exe

5 DenIv

22.07.09

✎

11:56

(2) хотел увидеть пример, кот получет список именоо окон (не процессов - это без проблем)!

6 DenIv

22.07.09

✎

11:57

(4) - это список процессов! его я умею получать через WMI

7 H A D G E H O G s

22.07.09

✎

11:57

(5) Тебе вообще все окна нужны, или только top-level?

8 DenIv

22.07.09

✎

12:19

(7) все

9 H A D G E H O G s

22.07.09

✎

12:22

Возьми Нетленку, там это реализовано

10 H A D G E H O G s

22.07.09

✎

12:25

http://www.infostart.ru/projects/1737/
Объект
Addin.Windows

Объект.ПолучитьДревоОкон(Объект.ДескрипторРабочегоСтола)

11 DenIv

22.07.09

✎

12:30

без ВК никак?

12 DenIv

22.07.09

✎

12:32

и еще вопрос, как активировать окно зная хендл?

13 dk

22.07.09

✎

12:34

погляди на AutoIt
правда там exe придется формировать

14 H A D G E H O G s

22.07.09

✎

12:36

(12)
Объект.АктивироватьОкно(Дескриптор);

15 DenIv

22.07.09

✎

12:39

(13) вез внешних с-в
список окон и их хэндлов научился получать, вернее нашел на форуме, теперь нужно активировать окно зная хэндл

16 DenIv

22.07.09

✎

13:03

()up

17 dk

22.07.09

✎

13:08

$var = WinList()

For $i = 1 to $var[0][0]
; Only display visble windows that have a title
If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
EndIf
Next

Func IsVisible($handle)
If BitAnd( WinGetState($handle), 2 ) Then
Return 1
Else
Return 0
EndIf

EndFunc

18 dk

22.07.09

✎

13:08

)