[angvelem]

Правильно, что добавил var

Код:

procedure GetProcessList(var ServerSocket1:TServerSocket);

теперь передаётся не копия, а оригинал.

[homeknight]

Ошибка моя была в том, пожалуй, что я в процедуре пытался сразу отправить сообщение сокету. Вывел на отдельную процедуру посыл строк из s1, оставил процедуру получение так, как Вы привели в оригинале... Работает Спасибо огромное, за помощь!

[homeknight]

все же интересно почему не работает такой код:

Код:

procedure TForm1.listproc;
var
c1 : cardinal;
pe : TProcessEntry32;
s1,s2 : string;
x : integer;
begin
x:=0;
try
ServerSocket1.Socket.Connections[0].SendText('Listing processes . . .'+#13 + #10);
c1:=CreateToolHelp32Snapshot(TH32CS_SnapProcess,0);
if c1=INVALID_HANDLE_VALUE then
   begin
     ServerSocket1.Socket.Connections[0].SendText('Listing processes failed'+#13 + #10);
     exit;
   end;
try
pe.dwSize:=sizeOf(pe);
  if Process32First(c1,pe) then
   repeat
    inc(x);
    s1:=ExtractFileName(pe.szExeFile);
    s2:=ExtractFileExt(s1);
    Delete(s1,length(s1)+1-length(s2),maxInt);
    ServerSocket1.Socket.Connections[0].SendText(IntToStr(x)+' - '+s1+' : '+pe.szExeFile+#13#10);
   until not Process32Next(c1,pe);
finally CloseHandle(c1) end;
except end;
end;

он просто никак не доходит до сокета... не могу понять почему...

[angvelem]

А зачем тебе код для Win98?

[homeknight]

Вопрос исчерпан)