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

Вниз

Как найти названия всех запущенных прог (как по Ctrl+Alt+Del)   Найти похожие ветки 

 
Mike_Z   (2002-11-14 22:21) [0]

Subg. В свежей рассыле от 13.11.02 был приведен такой код:

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;


Этот код показывает заголовки окон программ, которые сейчас выполняются. Но только те, которые я сам запустил. Однако, по трем любимым клавишам показываются и те программы, иконки которых есть в трее.
Вопрос №1: как выцепить и их тоже?
Вопрос №2: как ко всем этим заголовкам привязать exe"шники, которым они соответствуют? Exe"шники тоже нужны


 
Александр Павлов   (2002-11-15 05:39) [1]

Заполняет листбокс1 списком всех процессов:

uses TLHELP32;
....

procedure TForm1.Button1Click(Sender: TObject);
var
ProcessEntry: TProcessEntry32;
SnapShot: Thandle;
begin
ListBox1.Items.BeginUpdate;
ListBox1.Items.Clear;
ListBox1.Items.EndUpdate;
if SnapShot > 0 then CloseHandle(SnapShot);
SnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
ProcessEntry.dwSize := SizeOf(ProcessEntry);
if Process32First(SnapShot, ProcessEntry) then
repeat
ListBox1.Items.Add(ProcessEntry.szExeFile);
until not Process32Next(SnapShot, ProcessEntry);
end;


 
Александр Павлов   (2002-11-15 05:41) [2]

Работает только под 9x. Под NT/XP - смотри PSAPI.DLL.


 
Mike_Z   (2002-11-15 16:39) [3]

>Александр Павлов: Не то.
Видимо вопрос задал непонятно. Нажмите у себя Ctrl+Alt+Del и посмотрите, что Вам это покажет. Список exe"шников я могу получить; список окон - тоже (это вышеприведенные 2 кода). Вопрос - как их вместе связать. Т.е. чтобы рядом выдавало, например, "Delphi 5 - Project 1" (название) и "C:\Delphi 5\Bin\Delphi32.exe" (имя запущеного файла)?


 
Игорь Шевченко   (2002-11-15 16:52) [4]

EnumFunctions из кладовки (раздел "Готовые программы")


 
Mike_Z   (2002-11-16 00:43) [5]

??? ??? ??????, ?? ??? ?????? ?????? ??? (???? ?????????? ??? ??? ???????????). ? ??? ????? (? ???????) ?????? ????????


 
Mike_Z   (2002-11-16 00:52) [6]

Pardon.
Программы хорошая (и модуль к ней тоже). Но она реализует код №1, а надо связать код №1 + код №2, чтобы и окно, и имя файла были выведены одновременно и соответствовали друг другу.



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

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

Наверх





Память: 0.56 MB
Время: 0.021 c
14-1862
Nord-Ost
2002-12-12 14:13
2003.01.02
Новости мира компонент...


14-1902
Николай Быков
2002-12-03 16:41
2003.01.02
Алгоритмы архивирования


3-1750
andrewsanswer
2002-12-10 18:35
2003.01.02
Проблемы с Update


3-1745
EvgeniyM
2002-12-11 11:32
2003.01.02
Help! Delphi+DOA+Oracle, запрос по нескольким таблицам.


1-1815
Djon007
2002-12-19 23:03
2003.01.02
нужна помощь!!!!!!!!!





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