IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Получение списка запущенных приложений
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 91
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


Как получить список запущенных приложений?
В DRKB способ не стабильный....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Ну, тогда сначала объясни, ЧЕМ тот способ нестабилен, и что ты вкладываешь в понятие стабильности, а потом будем думать, как сделать то, что тебе надо...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Так... Значит, пока есть время - я тут кое-что нашел, должно тоже давать список запущенных приложений:
function EnumWindowsProc(wnd:HWND; lParam: LPARAM):BOOL; stdcall;
var
wn:array[0..MAX_PATH-1] of char;
begin
result:=true;
if IsWindowVisible(wnd) and (GetParent(wnd)=0) and (GetWindow(wnd,GW_OWNER)=0) and
((GetWindowLong(wnd,GWL_EXSTYLE) and WS_EX_TOOLWINDOW)=0) then
begin
GetWindowText(wnd,wn,MAX_PATH);
Form1.Memo1.Lines.Add('"'+string(wn)+'"');
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
EnumWindows(@EnumWindowsProc,0);
end;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


на эту тему можно задать вопрос по icq 7744799

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


N337
****

Группа: Пользователи
Сообщений: 737
Пол: Мужской

Репутация: -  26  +


Бывало ещё и так:


Прикрепленные файлы
Прикрепленный файл  ProcessList.zip ( 1.06 килобайт ) Кол-во скачиваний: 95


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Пионер
**

Группа: Пользователи
Сообщений: 91
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


blink.gif Странно видимо ошибка где-то в самом коде!
Суть должна была быть такой:
Есть поток класса THread в нем цикл постоянно отлавливающий приложения, потом сверяет зарегестрирован ли такой процесс в списке* если нет, то запускается поток слежения за ним**

Есть ещё один вопрос: в каком Uses`е лежит TaskFirst, TaskNext и.т.д.?

*Список основанн на массиве

Const
MaxThreadBox = MaxByte * 3;
FreeSlotValue = 0;

Var
TrackingProcessBoxs: Array[1..MaxThreadBox] Of HWND;

Function ExistHWND(iWnd: HWND): Boolean;
Procedure FreeBox(iIndex: Integer);
Function GetFreeBox: Integer;
Function AddUseBox(iWnd: HWND): Integer;
///...
Uses ThreadTrackingProcess_Unit, Main_Form;

Function ExistHWND(iWnd: HWND): Boolean;
Var
VCurrentPosScan: Integer;
Begin
Result := False;
For VCurrentPosScan := 1 To MaxThreadBox Do
Begin
If TrackingProcessBoxs[VCurrentPosScan] = iWnd Then
Begin
Result := True;
Break;
End;
End;
End;

Procedure FreeBox(iIndex: Integer);
Begin
TrackingProcessBoxs[iIndex] := FreeSlotValue;
End;

Function GetFreeBox: Integer;
Var
VCurrentPosScan: Integer;
Begin
Result := FreeSlotValue;
For VCurrentPosScan := 1 To MaxThreadBox Do
Begin
If TrackingProcessBoxs[VCurrentPosScan] = FreeSlotValue Then
Begin
Result := VCurrentPosScan;
Break;
End;
End;
End;

Function AddUseBox(iWnd: HWND): Integer;
Begin
Result := GetFreeBox;
TrackingProcessBoxs[Result] := iWnd;
End;


**Поток слежения запускается без потокаTHread,
Второй вариант написанный в DRKB в разделе "Как создавать потоки без класса TThread?"

Если кто может просьба ПОМОГИТЕ!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


вот я писал оснастку для консоли управления Windows, в ней происходит мониторинг и сбор информации о нужных мне процессах... так же пригодиться всем кто хочет научиться писать оснастки для консоли управления Windows..



Я недавно писал оснастку для mmc (консоль управления windows), в которой производиться наблюдение за процессами, сбор информации и монторинг интересующих нас процеесов... Исходники прилагаються...

MMC_Demo.zip (доработанная версия)


Прикрепленные файлы
Прикрепленный файл  mmc_test.zip ( 166.35 килобайт ) Кол-во скачиваний: 99
Прикрепленный файл  MMC_Demo.zip ( 190.41 килобайт ) Кол-во скачиваний: 91
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.11.2017 7:55
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"