Thema: Dos command

Einzelnen Beitrag anzeigen

Benutzerbild von guinnes
guinnes

Registriert seit: 28. Feb 2007
Ort: Bottrop
265 Beiträge
 
Delphi 5 Enterprise
 
#24

AW: Dos command

  Alt 30. Mär 2012, 13:05
Aber wenn ich die Unit einbinde bekomme ich bei DosCommand den CommandLine vorschlag nicht :/
Hast du das Ding als Komponente installiert und verwendest die Komponente, oder erzeugst du das Dingen im Quelltext ?
Delphi-Quellcode:
procedure TfrmTSMain.btnExecuteClick(Sender: TObject);
var
  Command : String;
begin
  if JvOpenDialog.Execute then
  begin
    RxTrackInfo.EmptyTable;
    JvOpenDialog.InitialDir := ExtractFilePath(JvOpenDialog.FileName);
    lbxFileList.Items.Add(JvOpenDialog.FileName);
    mmMeta.Lines.Clear;
    mmDosCommand.Lines.Clear;
    Command := ExtractFilePath(Application.ExeName) + 'tsmuxer "' + JvOpenDialog.FileName + '"';
    DosCommand.CommandLine := Command;
    DosCommand.Execute;
  end;
end;
Tut bei mir einwandfrei
Glückauf
  Mit Zitat antworten Zitat