о tprocessentry32

← →
фывыч (2005-09-27 19:01) [0]

у мя есть ID процесса, как получить инфу о нем через tprocessentry32, у самого не получается

← →
umbra © (2005-09-27 19:05) [1]

а как не получается. можно чуть-чуть кода?

← →
фывыч (2005-09-29 13:37) [2]

вот так не получается (часть кода, пытаемся получить, например, имя екзешника, ID процесса лежит в treeview в виде 8-ми значного HEX)
var
Snap: THandle;
ProcInfo: TProcessEntry32;
begin
if TreeView1.Selected <> nil then
begin
Snap:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, StrToInt("$" + Copy(TreeView1.Selected.Text, 1, 8)));
if Snap <> 0 then
begin
ProcInfo.dwSize:=SizeOf(TProcessEntry32);
Process32First(Snap, ProcInfo);
Label3.Caption:=ProcInfo.szExeFile;
end;
CloseHandle(Snap);
end;

← →
begin...end © (2005-09-29 13:44) [3]

> фывыч (29.09.05 13:37) [2]

> Snap:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, StrToInt("$"
> + Copy(TreeView1.Selected.Text, 1, 8)));

?!

th32ProcessID

[in] Process identifier of the process to be included in the snapshot. This parameter can be zero to indicate the current process. This parameter is used when the TH32CS_SNAPHEAPLIST, TH32CS_SNAPMODULE, or TH32CS_SNAPALL value is specified. Otherwise, it is ignored and all processes are included in the snapshot.

← →
фывыч (2005-09-29 20:27) [4]

и что? как проблему-то решить?

> как проблему-то решить?

какую?

> фывыч (29.09.05 20:27) [4]

1. Использовать OpenProcess + GetProcessImageFileName (только для XP).
2. Использовать OpenProcess + GetModuleFileNameEx (только для NT-систем).
3. Получить снимок модулей нужного процесса и найти нужный модуль -- CreateToolHelp32Snapshot c TH32CS_SNAPMODULE + Module32First.
4. Получить снимок всех процессов и найти сведения о процессе с нужным Id -- CreateToolHelp32Snapshot с TH32CS_SNAPPROCESS + Process32First/Process32Next.

о tprocessentry32 Найти похожие ветки