Модератор: Модераторы
Ism писал(а):Ниче не понятно, какая переменная ? На что заменить ?
AProcess.CommandLine := 'cmdow /RUN /HID mpg123-static.exeIsm писал(а):Это же сверхэлементарно
AProcess.CommandLine := 'cmdow /RUN /HID mpg123-static.exe ' + MyVariable (которая String)
procedure TForm1.Button1Click(Sender: TObject);
var
 MyFile: string;
begin
  if OpenDialog1.Execute then MyFile:=OpenDialog1.FileName;
end;      procedure TForm1.Button3Click(Sender: TObject);
var
    AProcess: TProcess;
begin
   AProcess := TProcess.Create(nil);
   AProcess.CommandLine := 'mpg123-static.exe ' + MyFile;
   AProcess.Options := AProcess.Options + [poWaitOnExit];
   AProcess.Execute;
   AProcess.Free;ShowMessage(MyFile);'mpg123-static.exe "' + MyFile + '"';xxZaharxx писал(а):procedure TForm1.Button1Click(Sender: TObject);
var
MyFile: string;
xxZaharxx писал(а):AProcess.CommandLine := 'mpg123-static.exe ' + MyFile;


Вернуться в Обучение Free Pascal
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1