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

Вниз

Cписок запущенных программ   Найти похожие ветки 

 
Arthur   (2003-07-24 00:31) [0]

Помогите получить список запущенных программ


 
Immortal_Death   (2003-07-24 00:34) [1]

в каком виде?
хендлы? экзишники? имена окон?

да и по инету этого добра полным полно....


 
Ihor Osov'yak   (2003-07-24 00:50) [2]

NT: EnumProcesses (PSAPI)

W9X: CreateToolhelp32Snapshot,Process32First,NextProc

Зы. http://www.delphi-jedi.org/Jedi:JCLDOWNLOADS:953329, тянешь сорцы, и там есть модуль по имени JclSysInfo, если не ошибаюсь..


 
ZZ   (2003-07-24 01:49) [3]

http://www.yandex.ru
http://www.google.com.ru


 
dataMaster   (2003-07-24 02:12) [4]


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;


 
Ihor Osov'yak   (2003-07-24 02:43) [5]

2 dataMaster © (24.07.03 02:12)

Не окон верхнего уровня, а процессов (программ, как вопрошающий говорил)..



 
dataMaster   (2003-07-24 03:45) [6]

Исправляюсь... ;-)

procedure GetProcessList(List: TStrings);
var
I: Integer;
hSnapshoot: THandle;
pe32: TProcessEntry32;
begin
List.Clear;
hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if (hSnapshoot = -1) then Exit;
pe32.dwSize := SizeOf(TProcessEntry32);
if (Process32First(hSnapshoot, pe32)) then repeat
I := List.Add(pe32.szExeFile);
List.Objects[I] := Pointer(pe32.th32ProcessID);
until not Process32Next(hSnapshoot, pe32);
CloseHandle (hSnapshoot);
end;


 
dataMaster   (2003-07-24 03:49) [7]

забыл добавить:

uses TlHelp32;



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

Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Наверх















Память: 0.83 MB
Время: 0.413 c
4-20839
KpeHgeJIb
2003-06-03 19:44
2003.08.07
Помогите с ExtractAssociatedIcon(.......)


6-20643
неРуль
2003-05-26 09:38
2003.08.07
перенаправление портов


14-20762
Marconi
2003-07-21 12:56
2003.08.07
to Moderator


1-20567
Дмитрий_Б
2003-07-23 13:31
2003.08.07
Вопрос по QReport


14-20803
VEG
2003-07-19 19:28
2003.08.07
Как можно получить имя и инфу об владельце IP





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский