Dos command

[Bernhard Geyer]

Zitat von value is NULL:

... Ich möchte Dos befehle in meiner Commandozeilen app abschießen können

DOS? setzt du noch Win9x/ME ein?

[value is NULL]

also um mal alle offenen Fragen zu beantworten

- nicht dos sondern cmd kommandos
- commands = Kommandos wie zB "dir"
- abschießen = ausführen
- was nicht funktioniert? Irgendwie passiert nichts :/

LG

[himitsu]

Zitat:

Kommandos wie zB "dir"

Wieso das und warum nicht direkt über die WinAPI?

[value is NULL]

wie meinst du das ?

[Coffeecoder]

Hi,
Suchst du sowas? siehe hier

[himitsu]

DIR > FindFirst FindFirstFile

Zitat von Luckie:

**) Shellexecute hat auch einen Rückgabewert, den man eventuell mal abfragen könnte sollte.

Zitat von DeddyH:

Und was funktioniert nicht?

Zitat von value is NULL:

also um mal alle offenen Fragen zu beantworten

Alle?

[value is NULL]

Es geht mir nicht nur um DIR sondern um Alle Befehle, welche ich in einem CMD Prompt executen kann. (ipconfig, dir, copy, usw usw )

Der Sinn liegt darin, das ich ein kleines commandline Tool bastle, indem ich verschiedene Befehle ausführen kann. hier möchte ich eben noch
oben genannte DOS Befehle einbinden dh. Die Eingabe sieht dann ca so aus: execcmd <DOS-BEFEHL>.

[DeddyH]

Bei mir funktioniert der Code. Hast Du denn nun endlich den Rückgabewert von ShellExecute ausgewertet? Was steht drin?

[edit] Oder was sagt diese Variante?

Delphi-Quellcode:

procedure ExecuteCommand(const command: string);
const
  ENV_VAR = '%COMSPEC%';
var
  comspec: string;
  ReturnValue: integer;
begin
  SetLength(comspec, ExpandEnvironmentStrings(ENV_VAR, nil, 0) + 1);
  ExpandEnvironmentStrings(ENV_VAR, PChar(comspec), Length(comspec));
  SetLength(comspec, StrLen(PChar(comspec)));
  if comspec <> '' then
    begin
      ReturnValue := ShellExecute(0, 'open', PChar(comspec),
        PChar('/k ' + command), nil, SW_SHOW);
      if ReturnValue < 33 then
        MessageBox(0, PChar(Format('Fehler bei ShellExecute: %d', [ReturnValue])
          ), nil, MB_OK or MB_ICONERROR);
    end
  else
    MessageBox(0, 'Kommandointerpreter konnte nicht ermittelt werden.', nil,
      MB_OK or MB_ICONERROR);
end;

[/edit]