сканер портов:

program Scan;

{$APPTYPE CONSOLE}

uses
 SysUtils,
 Winsock,
 Unit1 in 'Unit1.pas' {Form1};

var
 IpWSAData_:WSAData;
 Socket_:TSocket;
 SockAddr_:TSockAddr;
 host:String;
 port:ShortString;
 fp,lp,i:Integer;

begin
host:=MyIP;
port:='1-65535';

fp:=strtoint(copy(port,1,pos('-',port)-1));
lp:=strtoint(copy(port,pos('-',port)+1,length(port)));

Writeln(host);
Writeln('first port: ',fp);
Writeln('last port: ',lp);
WriteLn('-----star scanning-----');

SockAddr_.sin_family:=AF_INET;
SockAddr_.sin_addr.S_addr:=inet_addr(pchar(host));

if WSAStartup($0101,IpWSAData_)<>0 then
              begin
               Writeln('error inicialization');
               exit;
              end
              else
               Writeln('Inicialization');

for i:=fp to lp do
              begin
               Socket_:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
               if Socket_=INVALID_SOCKET then
                begin
                  Writeln('socket error');
                end;
               SockAddr_.sin_port:=htons(i);
               if bind(Socket_,SockAddr_,SizeOf(SockAddr_))=0 then
                               begin
                                Writeln('port ',i,' not used');
                                CloseSocket(Socket_);
                               end
                               else
                               Writeln('port ',i,' used');

              end;

WriteLn('-----done scanning-----');

WSACleanup;

end.

При помощи этого кода можно посмотреть занят ли какой-либо из сканируемых портов или нет. И у меня возник вопрос - а можно ли определить какое запущенное приложение Винды соответствует тому или иному используемому порту?
Буду весьма благодарен за ответ.

Можно....

А если не секрет, то при помощи каких функций ето можно сделать?