Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];

Вниз

Как сделать программу, которая выдает список запущенных процессов   Найти похожие ветки 

 
Алексей Ч.   (2003-01-11 02:09) [0]

Ребята помогите. Очень надо. Как сделать програму, которая отслеживает запущенные процессы и выгружает нужный.


 
Rouse_   (2003-01-11 02:18) [1]

Ну вы блин даете ;)

procedure TForm1.Button1Click(Sender: TObject);

VAR Wnd : hWnd;
buff: ARRAY [0..127] OF Char;
begin
ListBox1.Clear;
Wnd := GetWindow(Handle, gw_HWndFirst);
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));
ListBox1.Items.Add(StrPas(buff));
END;
Wnd := GetWindow(Wnd, gw_hWndNext);
END;
ListBox1.ItemIndex := 0;
end;

По TerminateProcess сами найдете или тоже код дать?

Желаю успехов


 
linco   (2003-01-28 10:19) [2]

Предыдущий ответ не совсем точен. (вернее совсем не точен). :)) Вопрос состоит в том, чтобы показать поцессы, а не окна. Процессов заметьте гораздо больше. :))
Используйте функцию CreateToolhelp32Snapshot там с различными параметрами делается слепок системы, на предмет процессов, потоков и т.п. Куча информации. Правда формат сложноват, но я думяю вы разбеоретесь (в help все написано).
С уважением.



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.032 c
3-437
ksa
2003-04-11 13:40
2003.05.01
Как выделить текущую строку в DBGrid?


4-843
-= ALEX =-
2003-03-04 13:51
2003.05.01
Создание окон на WinApi


3-449
Dimaz-z
2003-04-13 18:22
2003.05.01
Как выстроить записи в таблице по алфавиту?


3-476
kolesya
2003-04-14 16:30
2003.05.01
ADODataSet


14-792
Minog
2003-04-15 19:00
2003.05.01
Где можно найти справочник по функциям в дельфи?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский