| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Процессы! [D5, D7, WinXP]
Александр1 © (2004-03-24 14:35:00)Здравствуйте уважаемые мастера! Ниже показан пример как можно отобразить список запушенных приложений (тоже, что при нажатии горячих клавиш).
А как сделать так, чтобы программа выдавала не только названия приложений, но и пути к исполняемым файлам их имена ( C:\хххх\xxxx.exe).
Заранее спасибо за помощь!
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;
Songoku (2004-04-10 16:34:00) [1]2 Александр1:
То что я тебе заскажу работает только под Win2k/XP
Кароче с помощью GetWindowThreadProcessId узнаюсь PID каторому пренадлежит окно. Потом открываешь процесс OpenProcess. В PSAPI.dll находится GetModuleFileNameEx <- спомошью этой фонкции ты узнаешь где именно ноходится пиложение каторое создалло определёное окно. Я думаю тут всё понятно. А ... в втором параметры ты должен указать HMODULE. Что бы узнать правильный HMODULE используй EnumModules!PSAPI.DLL ... она овыращает масив из адресов всех присудствующих модулей в том процессе. Ты должен указать первый модуль из масива и всё будет ОК. Если возникнут вопросы то спашивай!
Александр1 (2004-04-09 20:29:00) [2]Yanis Спасибо посмотрю!
Yanis (2004-04-09 08:42:00) [3]Я случайно :)
Yanis (2004-04-09 08:40:00) [4]Удалено модератором
Примечание: Дубль
Yanis (2004-04-09 08:39:00) [5]У меня есть идея: вам надо поменьше трепаться в форуме, а искать примеры и статьи раз уж самим никак :)))))))))
И еще посмотрите здесь:
http://delphibase.endimus.ru/?action=viewfunc&topic=sysiface&id=10211
Керосинщик (2004-04-09 07:34:00) [6]Данный пример под win2000 дает только имя исполняемого файла без полного пути до него. У кого-нибудь есть идеи что делать?
(2004-04-04 00:35:00) [7]Удалено модератором
Александр1 (2004-04-02 19:52:00) [8]Cobalt -А ге взять и что это?
Cobalt (2004-03-28 11:23:00) [9]tlhelp32
Александр1 (2004-03-28 05:53:00) [10]Да пример похоже то, что надо. Только помогите мне его использовать пожалуйста!
function GetModulesListByProcessId(ProcessId: Cardinal):TModuleArray;На эту строчку показывает ошибку.
Incompatible types.
Может какой модуль подключить надо и как?
Yanis (2004-03-28 00:48:00) [11]
function GetModulesListByProcessId(
ProcessId: Cardinal): TModuleArray;
var
hSnapshot : THandle;
lpme : TModuleEntry32;
procedure AddModuleToList;
begin
SetLength(Result,High(Result)+2);
Result[high(Result)]:=lpme;
end;
begin
SetLength(Result,0);
hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,ProcessId);
if hSnapshot=-1 then RaiseLastWin32Error;
lpme.dwSize:=SizeOf(lpme);
if Module32First(hSnapshot,lpme) then
begin
AddModuleToList;
while Module32Next(hSnapshot,lpme) do AddModuleToList;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
VAR
Wnd : hWnd;
buff: ARRAY [0..127] OF Char;
Pid : Cardinal;
i:integer;
modarr : TModuleArray;
Name : String;
begin
StringGrid1.RowCount:=1;
Wnd := GetWindow(Handle, gw_HWndFirst);
WHILE Wnd <> 0 DO
BEGIN
IF (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) THEN
BEGIN
fillchar(name,sizeof(name),#0);
GetWindowText(wnd,buff,sizeof(buff));
GetWindowThreadProcessId(Wnd,@Pid);
modarr:=GetModulesListByProcessId(Pid);
name:='Null';
for i:=0 to High(modarr) do
begin
if Integer(modarr[i].modBaseAddr)=$400000 then
begin
name:=modarr[i].szExePath;
break;
end;
end;
StringGrid1.Cells[0,StringGrid1.RowCount-1]:=StrPas(buff);
StringGrid1.Cells[1,StringGrid1.RowCount-1]:= StrPas(PChar(name));
StringGrid1.RowCount:=StringGrid1.RowCount+1;
END;
Wnd := GetWindow(Wnd, gw_hWndNext);
END;
StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
Почему то я сомневаюсь, что тебе это поможет :).
Александр1 (2004-03-27 18:59:00) [12]Ау люди!
Александр1 (2004-03-25 19:37:00) [13]Мне проект нужен на delphi
Александр1 (2004-03-25 19:31:00) [14]А по русски ни чего нет?
Игорь Шевченко (2004-03-24 22:38:00) [15]Александр1 © (24.03.04 19:23)
> Представте себе к примеру у меня запушено приложение - некий
> файл xxx.exe. Мне надо опредилить место положения этого
> файла.
www.sysinternals.com Process Explorer
Александр1 (2004-03-24 19:23:00) [16]На счёт видимых окон. Это не мой пример.
Это понятно. Представте себе к примеру у меня запушено приложение - некий файл xxx.exe. Мне надо опредилить место положения этого файла. Как это сделать?
Digitman (2004-03-24 15:16:00) [17]
> список запушенных приложений
не понятно, какое отношение "список запушенных приложений
" имеет к списку видимых верхнеуровневых окон текущего дисктопа ...
мало ли как некое приложение может манипулировать своими окнами .. оно вправе сделать свои окна невидимыми, но от этого состояние "запушености" процесса приложения иным не становится
| |
