Delphi: подключения процесса
 

Как в Delphi, зная PID процесса, орпеделить какие порты и протоколы он (процесс) в данный момент использует и использует ли вообще?
Фактически необходимо написать прогу - аналог netstat, которая выводит информацию о подключениях. Т.е. программа создает список процессов, а потом для каждого процесса определяет подключения и выводит их.
Программы-сканеры (реализующие просмотр всех портов и проверяющие есть ли по ним подключения) не подходят, т.к. портов 65 тысяч с хвостиком и, чтобы всех их проверить, уйдет уйма времени. Программа должна выводить информацию быстро.

Prosche wsego zdes ispolzowat hooking - t.e. perehwatiwat zapusk prilojeniya i podmenyat swoimi rutinami wizowi na barahlo iz WSOCK32.DLL. Ischi w nete po keywordam API HOOKING.