Registriert seit: 10. Sep 2010
249 Beiträge
|
AW: Dos command
30. Mär 2012, 13:26
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
ne ich habs als Unit in meiner commandline app eingebunden :/
|