Получить список процессов через сокет

[niluser]

доброго времени суток.
есть код:

uses tlhelp32;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
 s: string;
 proc32: PROCESSENTRY32;
 a, b: cardinal;
begin
s:=Socket.ReceiveText;
if s='Proc' then
  begin
 label1.caption:='received';
 a:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
 Process32First(a, proc32);
 while Process32Next(a, proc32) do
  begin
   OpenProcessToken(proc32.th32ProcessID,TOKEN_READ,b);
   listbox4.Items.Add(string(proc32.szExeFile)+'  ID: '+inttostr(proc32.th32ProcessID));
  end;
 end;
end;

он выводит список процессов.
устанавливаю с сервером конект, посылаю строку:

ClientSocket1.Socket.SendText('Proc');

лейбл работает, а все остальное - нет
тем не менее в кнопке данный код работает, ни как не могу разобратся в чем дело

[raxp]

лейбл работает, а все остальное - нет

иии? Где отсылка списка процессов?

[niluser]

сервер и клиент находятся на общей форме, пока

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

это тут не причем, где вы отсылаете то список?

[niluser]

мне его никуда слать не надо, мне его нужно открыть на форме, где находиться сам ServerSocket

listbox4.Items.Add(string(proc32.szExeFile)+'  ID: '+inttostr(proc32.th32ProcessID));

[xoodoo]

Сообщение от niluser

а все остальное - нет .. в чем дело

В том что a = - 1

[Человек_Борща]

сервер и клиент находятся на общей форме, пока

и чего?
Клиент должен отправить серверу результат деятельности.

Используйте PsAPI для получения списка процессов.

[Stilet]

В том что a = - 1

Поддерживаю. Проверять надо что вернуто от Process32First. Возможно список процессов он не получил.

[xoodoo]

список процессов он не получил

Конечно не получил.

th32ProcessID

Process identifier. This parameter can be zero to indicate the current process. This parameter is used when the TH32CS_SNAPHEAPLIST or TH32CS_SNAPMODULE value is specified. Otherwise, it is ignored.

[niluser]

должно было получится так, только почему не работало до этого - не знаю