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

Вниз

Процессы   Найти похожие ветки 

 
GSergei   (2003-07-18 16:03) [0]

Как получить список процессов, запущенных в данный момент в системе и сохранить эту информацию, например в массиве?


 
R4D][   (2003-07-18 17:03) [1]

Delphi - TlHelp32.pas
Подробнее - msdn.microsoft.com


 
Clipper Chip   (2003-07-18 17:05) [2]

Вроде этого:
procedure _process;
var
ProcessHandle,aProcessHandle: THandle;
ProcessID: DWORD;
handler: thandle;
data: TProcessEntry32;
Path: array [0..MAX_PATH] of char;
osVerInfo: TOSVersionInfo;
a:array[0..1000] of string;
i:word;

procedure VerifyLoadProcessNT;
function GetProcessHandle(ProcessID: DWORD): THandle;
begin
Result:=OpenProcess(PROCESS_VM_READ or PROCESS_QUERY_INFORMATION, True, ProcessID);
end;
begin
handler:=createtoolhelp32snapshot(TH32CS_SNAPPROCESS,0);
data.dwSize:=sizeof(data);
i:=0;
if process32first(handler,data) then
begin
GetModuleFileNameEx(GetProcessHandle(data.th32ProcessID), 0,path, MAX_PATH);
a[i]:=path;
inc(i);
while process32next(handler,data) do
begin
GetModuleFileNameEx(GetProcessHandle(data.th32ProcessID), 0,path, MAX_PATH);
a[i]:=path;
inc(i);
end;
end;
CloseHandle(handler);
end;

procedure VerifyLoadProcess9x;
begin
handler:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
data.dwSize := SizeOf(data);
i:=0;
if process32first(handler,data) then
begin
a[i]:=data.szExeFile;
inc(i);
while process32next(handler,data) do
begin
a[i]:=data.szExeFile;
inc(i);
end;
end;
CloseHandle(handler);
end;

begin
osVerInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
( osVerInfo) Вроде этого:
procedure _process;
var
ProcessHandle,aProcessHandle: THandle;
ProcessID: DWORD;
handler: thandle;
data: TProcessEntry32;
Path: array [0..MAX_PATH] of char;
osVerInfo: TOSVersionInfo;
a:array[0..1000] of string;
i:word;

procedure VerifyLoadProcessNT;
function GetProcessHandle(ProcessID: DWORD): THandle;
begin
Result:=OpenProcess(PROCESS_VM_READ or PROCESS_QUERY_INFORMATION, True, ProcessID);
end;
begin
handler:=createtoolhelp32snapshot(TH32CS_SNAPPROCESS,0);
data.dwSize:=sizeof(data);
i:=0;
if process32first(handler,data) then
begin
GetModuleFileNameEx(GetProcessHandle(data.th32ProcessID), 0,path, MAX_PATH);
a[i]:=path;
inc(i);
while process32next(handler,data) do
begin
GetModuleFileNameEx(GetProcessHandle(data.th32ProcessID), 0,path, MAX_PATH);
a[i]:=path;
inc(i);
end;
end;
CloseHandle(handler);
end;

procedure VerifyLoadProcess9x;
begin
handler:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
data.dwSize := SizeOf(data);
i:=0;
if process32first(handler,data) then
begin
a[i]:=data.szExeFile;
inc(i);
while process32next(handler,data) do
begin
a[i]:=data.szExeFile;
inc(i);
end;
end;
CloseHandle(handler);
end;

begin
osVerInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
begin
if osVerInfo.dwPlatformId=VER_PLATFORM_WIN32_NT then VerifyLoadProcessNT;
if osVerInfo.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS then VerifyLoadProcess9x;
end;
end;


 
Spawn ©   (2003-07-19 06:30) [3]

EnumProcesses



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

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

Наверх




Память: 0.47 MB
Время: 0.048 c
1-3964
StarCon
2003-09-20 10:55
2003.10.02
передать строку в чужое окно


3-3732
AndrewK
2003-09-12 12:50
2003.10.02
Как работать с параметрами в TADOQuery?


3-3792
Galiya
2003-09-11 11:54
2003.10.02
---|Ветка была без названия|---


7-4143
GSergei
2003-07-18 11:50
2003.10.02
Переменная среды


14-4104
race1
2003-09-16 08:00
2003.10.02
Half-Life 2