Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

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

 
Vilux   (2002-03-26 02:30) [0]

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


 
Alx2 ©   (2002-03-26 07:51) [1]

Вот список запущенных. Можно не объявлять используемые функции, если подключить модуль psapi.

Function GetAllProcesses(Strs: TStringList): Boolean;
Type
TEnumProcesses = Function (lpidProcess: LPDWORD; cb: DWORD; Var cbNeeded: DWORD): BOOL Stdcall;
TEnumProcessModules = Function (hProcess: THandle; lphModule: LPDWORD; cb: DWORD; Var lpcbNeeded: DWORD): BOOL Stdcall;
TGetModuleFileNameExA = Function (hProcess: THandle; HMODULE: HMODULE; lpFileName: PAnsiChar; nSize: DWORD): DWORD Stdcall;
Var
EnumProcesses : TEnumProcesses;
EnumProcessModules : TEnumProcessModules;
GetModuleFileNameExA: TGetModuleFileNameExA;
hPSAPI : THandle;
Counter, Counter1 : LongWord;
PIDs : Array[0..1023] Of DWORD;
pbNeeded : DWORD;
ProcHandle : THandle;
ModHndls : Array[0..1023] Of DWORD;
mbNeeded : DWORD;
ModulePath : String;
Begin
Result := False;
hPSAPI := LoadLibrary("PSAPI.dll");
If hPSAPI < 32 Then
Begin
Result := False;
Exit
End;
EnumProcesses := GetProcAddress(hPSAPI, "EnumProcesses");
EnumProcessModules := GetProcAddress(hPSAPI, "EnumProcessModules");
GetModuleFileNameExA := GetProcAddress(hPSAPI, "GetModuleFileNameExA");
EnumProcesses(@PIDs, Length(PIDs), pbNeeded);
For Counter := 0 To (pbNeeded Div 4) - 1 Do
Begin
ProcHandle := OpenProcess(PROCESS_QUERY_INFORMATION + PROCESS_VM_READ, False, PIDs[Counter]);
If ProcHandle <> 0 Then
Begin
If EnumProcessModules(ProcHandle, @ModHndls, Length(ModHndls), mbNeeded) Then
For Counter1 := 0 To (mbNeeded Div 4) - 1 Do
Begin
SetLength(ModulePath, MAX_PATH);
GetModuleFileNameExA(ProcHandle, ModHndls[Counter1], PChar(ModulePath), MAX_PATH);
Strs.Add(AnsiLowerCase(ModulePath));
End;
CloseHandle(ProcHandle);
End;
If Result Then break
End;
FreeLibrary(hPSAPI)
End;




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

Текущий архив: 2002.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-88536
Коля
2002-05-16 08:51
2002.05.27
Мастера, помогите сложить 2 даты


1-88538
Коля
2002-05-16 13:00
2002.05.27
Как отучить окно оставлять кнопку в трее


14-88616
dudnikov
2002-04-19 03:55
2002.05.27
Вопрос-просьба


3-88354
Марина
2002-04-30 09:36
2002.05.27
dbiDoRestructure


1-88502
Serhy
2002-05-15 02:18
2002.05.27
Exception