Модератор: Модераторы
Ism писал(а):Ниче не понятно, какая переменная ? На что заменить ?
AProcess.CommandLine := 'cmdow /RUN /HID mpg123-static.exe
Ism писал(а):Это же сверхэлементарно
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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9