In Lazarus cmd öffen und direkt Befehl ausführen

[JustusiusDE]

Hallo Leute,
ich bin noch recht unvertraut mit Lazarus möchte aber schon eine Art Programm schreiben, dass es mir ermöglicht mit der Windows cmd-konsole direkt einen befehl durch einen Knopf auszuführen.
Außerdem soll ein Teil des Commands direkt aus einem TEdit-Bereich stammen.

Um es genauer zu erklären, mein Plan ist folgender: Ich habe vor durch eine Eingabe in z. B. "Edit" eine Domain wie "" und einem darauf folgenden Knopfdruck die cmd öffen und dort direkt den Befehl "nslookup " auszuführen.
Daraufhin soll dann wiederum aus der Ausgabe, welche an dem Beispiel "172.217.22.3" ist, die IP in "Edit2" ausgegeben werden.

Geht das so?
Oder gibt es irgendeinen anderen Weg denselben Effekt zu erzielen?

Ich bedanke mich schon mal für die Hilfe.
LG. Justusius

Edit: Ich habe versucht es mit einer .bat - Datei zu schaffen.
Hatte dabei aber leider keinen Erfolg.

[h-elsner]

Klar geht das. Das Zauberwort heißt TProcess.
Siehe hier: https://wiki.freepascal.org/Executing_External_Programs

Hier ein Beispiel mit Abfangen der Ausgaben des Kommandos:

Code: Alles auswählen

 
{Call external process and read results from pipe into outlist
 uses Classes, SysUtils, Process}
procedure CallExtProg(cmdln: string; outlist: TStringList); {Call ext process}
var
  cmdProcess: TProcess;                            {Process object for command}
  stro: TMemoryStream;                             {Memory stream to get stdout}
  gotb, n: Integer;                                {Bytes got from stdout}
begin
  gotb:=0;                                         {nothing got from stdout yet}
  cmdProcess:= TProcess.Create(nil);
  stro:=TMemoryStream.Create;
  try
    cmdProcess.CommandLine:=cmdln;
    cmdProcess.ShowWindow:=swoHide;                {no black hole}
    cmdProcess.Options:=[poUsePipes];              {redirect stdin/stdout}
    cmdProcess.Execute;                            {execute the external command}
    while cmdProcess.Running do begin              {collect all data from stdout}
      stro.SetSize(szget+gotb);
      n:=cmdProcess.Output.Read((stro.Memory+gotb)^, szget);
      if n>0 then inc(gotb, n) else sleep(100);    {No data --> wait 100ms}
    end;
    repeat                                         {Handle final output}
      stro.SetSize(szget+gotb);
      n:=cmdProcess.Output.Read((stro.Memory+gotb)^, szget);
      if n>0 then inc(gotb, n);                    {Read the remaining data}
    until n<=0;                                    {Got all}
    stro.SetSize(gotb);
    outlist.LoadFromStream(stro);                  {Transfer memory to outlist}
  finally                                          {Remove objects from memory}
    cmdProcess.Free;
    stro.Free;
  end;
end;
 
 

Gruß HE

[Warf]

TProcess brauchst du nur wenn du spezielle sachen machen willst (z.b. input via stdin geben). Für das was du willst ist RunCommand vollkommen ausreichend und macht praktisch das selbe was HE da hat, nur halt schon vorimplementiert

[JustusiusDE]

[JustusiusDE]

Vielen Dank für die Antworten!
Ich werde es mir die Tage mal anschauen