음..어렵군요. 말그대로입니다. 스레드의 갯수와 프로세스 그리구 pid는 구했는데 젤루 중요한 메모리는 구하지 못하겠어요

뭐 거진 여기저기서 따다 붙인거긴 한데..쩝.

아이템에 메모리를 추가해주기만 하면 되거든요

소스입니당 아무래도 TProcessEntry32구조체에서는 나와 있지 않은거 같구...

고수님덜 진짜 도와 주세요...^^;;

procedure TForm1.Process32List;

var

Process32: TProcessEntry32;

SHandle: THandle;

Next: BOOL;

Cnt : Smallint;

begin

Process32.dwSize := SizeOf(TProcessEntry32);

SHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);

Cnt := 0;

if Process32First(SHandle, Process32) then

begin

ListView1.Items.Add.Caption := Process32.szExeFile;

ListView1.Items.Item[Cnt].SubItems.Add(IntToStr(Process32.th32ProcessID));

Inc(Cnt);

repeat

Next := Process32Next(SHandle, Process32);

if Next then

ListView1.Items.Add.caption := Process32.szExeFile;

ListView1.Items.Item[Cnt].SubItems.Add(IntToStr(Process32.th32ProcessID));

Inc(Cnt);

until not Next;

end;

CloseHandle(SHandle);

end;