Программы и управление их окнами...

[young]

Доброго вам всем времени суток, дамы и господа!
Есть такое дело. нужно нопасать программу удалённо управляющую системой, так вот, застопрился над следующей функцие.
Отображение списка открытых программ в компоненин list, и по возможности, закрывание их, сворачивание, разворачивание, перетаскивание(именно типа открывается форма один в один как сама прога и вы её таскаете) смена фокуса между прогами, кто знает. плиз обьясните на примере просто локального компа, потом сам переведу в сетевую форму....

[ZeroX]

Поищи здесь, примерчик был эт точно

[young]

ZeroX - там всё до такой степени в свалку сваленно, что что-либо пытаться найти, практически бесполезно. Час искал, так и не откопал.
Да, и ещё, закрытие окна нашёл на vbsterrets.ru, ну там ещё кой чё накопал, но как получить список открытых программ?! Ctrl-Alt-Delete - это же как-то делает!

[Susanin]

Посмотри
http://www.mtu-net.ru/sharig/IndexMainTopic.htm
Я когда этот сайт нашел - скачал его полностью..
Susanin

[young]

Susanin - бедный ты бедный! Наверное трое суток качал!?
Короче, кой чё откопал:
Нужно налепить на форму элемент list и запихнуть код:

Код: Выделить всё

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long,
    ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"
    (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias
    "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2


Но чё-то не парит, мож это из-за w2k, али у меня чё-то не парит, кто может, попробуйте, если работает, плиз, киньте готовый исходник в мыло young@list.ru

[Kostyan]

young Ну рассмешил, какой же это код, это только декларация (объявление) функций и констант. И заставить работать эти строчки невозможно...
А насчет твоей проблемы - есть такая API-функция, сейчас не вспомню как называется... она делает "снимок" системы в данный момент, в снимке содержатся данные о всех запущенных прогах. Я постараюсь найти её, как только - так сообщу.

[Susanin]

2 young
Да ничего, на 2 Мб/с быстренько так скачивался....
А по поводу кода - ну так там прямо твой пример есть, полностью, добавь те элементы, что там в примере сверху написано, и скопируй ВЕСЬ код. У меня тоже W2k и все примеры бычат отменно
Susanin

[Susanin]

ЗЫ. Примерчик тебе отправил
Susanin