Dos command

[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]