Одновременная работа с несколькими портами через ServerSocket

[Пепел Феникса]

тогда получай полный список процессов и смотри есть ли там нужный тебе и все

[Sane2k]

наконец-то нашел работающую функцию, однако, интересная вещь данная функция неможет найти процесс taskmnr даже если он запущен почему так незнаю...

uses
SysUtils, tlhelp32;

function IsRunning(sName: string): boolean; // проверяет, запущен ли процесс sName
var
han: THandle;
ProcStruct: PROCESSENTRY32;
sID: string;
begin
Result := false;
han := CreateToolhelp32Snapshot(TH32CS_SNA PALL, 0);
if han = 0 then
exit;
ProcStruct.dwSize := sizeof(PROCESSENTRY32);
if Process32First(han, ProcStruct) then
begin
repeat
sID := ExtractFileName(ProcStruct.szExeFil e);
if uppercase(copy(sId, 1, length(sName))) = uppercase(sName) then
begin
Result := true;
Break;
end;
until not Process32Next(han, ProcStruct);
end;
CloseHandle(han);
end;

[Пепел Феникса]

может потому что он пишется taskmgr.exe
именно вместе с расширением, хотя в данной функции расширение не обязательно
кстати лучше немного её изменить так как она иногда будет давать неверные результаты
(например есть приложение Primer1.exe, а в функции ищем Primer, и функция выдаст true)

[Enemy]

Просто создать припустим 5-сокетов, которые должны слушать 5-разных портов. И создай багатопоточный сервер. Там вить все просто... Вот пример простого сервера. Один поток. WinSock Application.
program Server;
///Done by Zastavnyi Oleh
uses
SysUtils,
WinSock;

const PORT=1845;
BackLog=1;


var
_wData:WSAData;
_POPsocket,ListenSocket:TSocket;
_Server_Addr:sockaddr_in;
_Err:Integer;
ServInf:Array[1..64]of char;

function MakeWord(A, B: Byte): Word;
begin
Result := A or B shl 8;
end;


begin
ServInf:='Example Worck With WinSocket Application. Done By Zastavnyi Oleh';

if WSAStartup(MakeWord(1,1), _wData) <> 0 then
writeln('Init - Bad') else
writeln('Init - OK');

_POPsocket:=Socket(PF_INET,SOCK_STR EAM,IPPROTO_IP);
if _POPsocket= SOCKET_ERROR then
writeln('Socket Crated - Bad') else
writeln('Socket Crated - OK');

_Server_Addr.sin_family:=AF_INET;
_Server_Addr.sin_port:= htons(Port);
_Server_Addr.sin_addr.S_addr:=INADD R_ANY;

_Err:=bind(_POPsocket,_Server_Addr, sizeof(_Server_Addr));
if _Err=0 then
Writeln('Bind - OK') else
Writeln('Bind - Bad');


_Err:=listen(_POPsocket,BackLog);
if _Err=0 then
Writeln('Listen Startup - OK') else
Writeln('Listen Startup - Bad');

_POPsocket:=accept(_POPsocket,0,0);
if _POPsocket=INVALID_SOCKET then
Writeln('Accept - Bad') else
Writeln('Accept - OK [Connectded [1] ]');

_Err:=send(_POPsocket,ServInf,Sizeo f(ServInf),0);
if _Err<>-1 then Writeln('Send Info - OK ', _Err,' byte') else
Writeln('Send Info - Bad');

readln;
end.

[Sane2k]

Увы, с правельным написанием таскменеджера у меня всегда были проблеммы но как бы я не извращался с написанием данного процесса ничего хорошего не вышло.....и функция его все равно не нашла....

[Пепел Феникса]

вот еще вариант, но в нем строго нужно писать имя приложения полностью вместе с .exe и лучше проверять начинай с explorer.exe

Function TForm1.CheckTaskByExe(ExeName:String):boolean;
const
 PROCESS_TERMINATE=$0001;
var
 Co:BOOL;
 FS:THandle;
 FP:TProcessEntry32;
begin
 result:=false;
 FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 FP.dwSize := Sizeof(FP);
 Co:=Process32First(FS,FP);
 while integer(Co) <> 0 do
  begin
   if AnsiLowerCase(ExeName)=AnsiLowerCase(ExtractFileName(FP.szExeFile)); then Result:=true;
   Co:=Process32Next(FS,FP);
  end;
 CloseHandle(FS);
end;

вроде так...я просто убрал с нее лишнее ибо исходная функция немного иначе работает у меня(точнее у неё смысл иной)
на всякий случай вот исходный вариант(почти!!!)

Function TForm1.CheckTaskByExe(ExeName:String):boolean;
const
 PROCESS_TERMINATE=$0001;
var
 Co:BOOL;
 FS:THandle;
 FP:TProcessEntry32;
 i:integer;
 Tasks:array of string;
begin
 i:=0;
 FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 FP.dwSize := Sizeof(FP);
 Co:=Process32First(FS,FP);
 while integer(Co) <> 0 do
  begin
   i:=i+1;
   Setlength(Tasks, i);
   Tasks[i]:=ExtractFileName(FP.szExeFile);
   Co:=Process32Next(FS,FP);
  end;
 CloseHandle(FS);
 result:=false;
 for i:=0 to (Length(Tasks)-1) do if Tasks[i]=ExeName then Result:=true;
end;

последнее 100% работает

Uses SysUtils, tlhelp32; само собой необходимо

[Sane2k]

Спасибо, действительно данная функция находит таскменеджер