Hallo Sascha,
Du brauchst die
Unit Doscommand.pas dort findest Du die Klasse TDosCommand. Du nimmst am besten die modifizierte.
Die
Unit mußt Du in Dein Projekt einbinden.
Delphi-Quellcode:
procedure getConnectionList(data:TStrings);
var
cmd : TDosCommand;
sl: TStringList;
begin
cmd:= TDosCommand.Create(nil);
sl := TStringList.Create;
cmd.OutputLines:=sl;
cmd.InputToOutput:=true;
cmd.CommandLine:='netstat -n';
cmd.Execute;
while cmd.Active do
application.ProcessMessages;
FreeAndNil(cmd);
data.assign(sl);
sl.Free;
end;
Wenn Du die Verbindungen ausgeben willst, kannst Du das so machen:
getConnectionList(Memo1.lines);
Du kannst als Parameter auch eine Stringlist angeben, diese kannst Du dann weiterverarbeiten.
Hoffe das hilft.
Grüße
Klaus