Entwickler-Ecke

Internet / Netzwerk - Eingabeauffordenung (cmd) über Delphi ansteuern; ausführen


volvox - Mi 18.01.06 21:00
Titel: Eingabeauffordenung (cmd) über Delphi ansteuern; ausführen
Hi. Ich bin neu im Forum und programmiere erst seit Herbst mit Delphi. Kann mir jemand erklären, wie ich über Delphi die Eingabeaufforderung (cmd) öffnen und Befehle ausführen kann?. Man soll z.B. Anwendungen wie explorer.exe öffnen, oder andere PCs pingen können. Gehr dies bei Delphi 7 Personal über ganz normale ANwendungen, oder brauche ich diese batch-Dateien? (Hab noch nie damit gearbeitet!) Wäre gut, wenn mir das jemand recht genau erklären kann, da ich ncoh nicht so viel Erfahrung mit Delphi habe. PHILIPP


Marco D. - Mi 18.01.06 21:36
:welcome: :wink2: :welcome:

Also du kannst eine Stringlist benutzen.



Delphi-Quelltext 
1:
2:
3:
4:
 
var
list:TStringlist;

list:=TStringlist.create


Eine Stringlist ist wie eine Listbox, eine Liste von Strings, wobei jeder einzelne String über einen Index angesprochen werden kann.
Nun fügst der Stringlist deinen cmd-Befehl hinzu:


Delphi-Quelltext 
1:
 
list.add('ping 192.168.0.1');


DIe Stringlist wird nun als bat-Datei gespeichert.


Delphi-Quelltext 
1:
 
list.savetofile(extractfilepath(paramstr(0))+'temp.bat');


Nun muss diese Datei ausgeführt werden, das machst du mit dieser anweisung:


Delphi-Quelltext 
1:
2:
3:
4:
 
ShellExecute(Application.Handle,
                 'open',
                 PChar(extractfilepath(paramstr(0))+'temp.bat'),
                 Nil, Nil, SW_NORMAL)


Nun muss noch die Stringlist ausm Speicher gefegt und die bat-Datei gelöscht werden


Delphi-Quelltext 
1:
2:
 
list.free;
deletefile(extractfilepath(paramstr(0))+'temp.bat');


Wenn du was nicht verstanden hast, frag ruhig nach :wink:

Grüße von Koller


MrFox - Mi 18.01.06 21:36
Wenn du lediglich einen Befehl ausführen willst, würde sich ShellExecute mit entsprechender Parameterübergabe eignen.

//EDIT: War wohl zu spät dran


Marco D. - Mi 18.01.06 21:39
Hatte noch vergessen, dass du oben die Unit 'shellapi' einbinden musst. Sorry


UGrohne - Mi 18.01.06 21:43
Die Antworten von ping willst Du doch bestimmt wiede rzurück haben? Ich hab den folgenden Code mal gefunden gehabt, der funktioniert bei mir einwandfrei:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
 
function GetConsoleOutput(const Command: String; var Output, Errors: TStringList): Boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  SecurityAttr: TSecurityAttributes;
  PipeOutputRead: THandle;
  PipeOutputWrite: THandle;
  PipeErrorsRead: THandle;
  PipeErrorsWrite: THandle;
  Succeed: Boolean;
  Buffer: array [0..255] of Char;
  NumberOfBytesRead: DWORD;
  Stream: TMemoryStream;
begin
  //Initialisierung ProcessInfo
  FillChar(ProcessInfo, SizeOf(TProcessInformation), 0);

  //Initialisierung SecurityAttr
  FillChar(SecurityAttr, SizeOf(TSecurityAttributes), 0);
  SecurityAttr.nLength := SizeOf(SecurityAttr);
  SecurityAttr.bInheritHandle := true;
  SecurityAttr.lpSecurityDescriptor := nil;

  //Pipes erzeugen
  CreatePipe(PipeOutputRead, PipeOutputWrite, @SecurityAttr, 0);
  CreatePipe(PipeErrorsRead, PipeErrorsWrite, @SecurityAttr, 0);

  //Initialisierung StartupInfo
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb:=SizeOf(StartupInfo);
  StartupInfo.hStdInput := 0;
  StartupInfo.hStdOutput := PipeOutputWrite;
  StartupInfo.hStdError := PipeErrorsWrite;
  StartupInfo.wShowWindow := sw_Hide;
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;

  if  CreateProcess(nil, PChar(command), nil, nil, true,
  CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil,
  StartupInfo, ProcessInfo) then begin
    result:=true;
    //Write-Pipes schließen
    CloseHandle(PipeOutputWrite);
    CloseHandle(PipeErrorsWrite);

    //Ausgabe Read-Pipe auslesen
    Stream := TMemoryStream.Create;
    try
      while true do begin
        succeed := ReadFile(PipeOutputRead, Buffer, 255, NumberOfBytesRead, nil);
        if not succeed then break;
        Stream.Write(Buffer, NumberOfBytesRead);
      end;
      Stream.Position := 0;
      Output.LoadFromStream(Stream);
    finally
      Stream.Free;
    end;
    CloseHandle(PipeOutputRead);

    //Fehler Read-Pipe auslesen
    Stream := TMemoryStream.Create;
    try
      while true do begin
        succeed := ReadFile(PipeErrorsRead, Buffer, 255, NumberOfBytesRead, nil);
        if not succeed then break;
        Stream.Write(Buffer, NumberOfBytesRead);
      end;
      Stream.Position := 0;
      Errors.LoadFromStream(Stream);
    finally
      Stream.Free;
    end;
    CloseHandle(PipeErrorsRead);

    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    CloseHandle(ProcessInfo.hProcess);
  end
  else begin
    result:=false;
    CloseHandle(PipeOutputRead);
    CloseHandle(PipeOutputWrite);
    CloseHandle(PipeErrorsRead);
    CloseHandle(PipeErrorsWrite);
  end;
end;

in Command gibst Du das DOS-Kommando ein, Output enthält die Ausgabe, die normalerweise auf der Konsole erfolgen würde und Errors die Fehler ;-)


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!