Remote Process List

[Zero1]

hi all

also wie ich die processe aufliste weis ich ja aber wie realisiere ich das per remote??

A:Client
B:Server

A verbindet sich zu B, A clickt auf button Refresh und bekommt die processe von B in einer listview aufgelistet! und wie stell ich das nun an??

für local wäre diese source

Delphi-Quellcode:

uses TLHelp32;

procedure Tmasta.btnRefreshProcessClick(Sender: TObject);
var
  i: Integer;
  bContinue: BOOL;
  NewItem: TListItem;
begin
  ListView2.Items.Clear;
  aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
  bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
  while Integer(bContinue) <> 0 do
  begin
    NewItem := ListView2.Items.Add;
    NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile);
    NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4));
    NewItem.subItems.Add(aProcessEntry32.szExeFile);
    bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
  end;
  CloseHandle(aSnapshotHandle);
end;

was müsst ich alles verändern damit das per Remote klappt?? danke schon im vorraus

Zero1