Написать программу, которая вводит название другой программы и запускает её

[k1d]

Написать программу, которая вводит название другой программы и запускает её

Написать программу, которая вводит название другой программы и запускает ее.

 

[grelly]

Куда вводит? Если просто запустить, то это либо winexec(), либо ShellExecute(), либо execl

 

[k1d]

Куда вводит? Если просто запустить, то это либо winexec(), либо ShellExecute(), либо execl

сделал вот так
exec('c:\program files(x86)\aimp3\aimp3.exe');

но программа запускается и сразу же завершается, а аимп не запускается всё равно.. так что за нафиг с ним?
в турбо паскале это делал, если что)

 

[grelly]

Exec (процедура) (модуль Dos)



Выполняет заданную программу с заданной командной строкой.
Объявление

Procedure Exec(Path, CmdLine : String);

Режим

Real, Protected
Замечания

Ошибки сообщаются в переменной DosError.


При возникновении аварийных ситуаций устанавливаются такие

коды ошибок:
2 - файл не найден;
8 - нет необходимой памяти;
10 - ошибка в оборудовании;
11 - ошибка в формате.

Пример

{$M $4000, 0, 0 } { 16Kб стек, нет кучи }
uses Dos;

var
ProgramName, CmdLine : String;
begin
Write('Имя программы для запуска (с путём) : ');
ReadLn(ProgramName);
Write('Параметры командной строки ', ProgramName, ' : ');
ReadLn(CmdLine);
WriteLn('Пробую запустить...');
SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;
WriteLn('... вернулся из Exec');
{ Была ошибка ? }
if DosError <> 0 then
WriteLn('Ошибка DOS #', DosError)
else
WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);
end.


проверь какая ошибка возвращается

 

[k1d]

Exec (процедура) (модуль Dos)



Выполняет заданную программу с заданной командной строкой.
Объявление

Procedure Exec(Path, CmdLine : String);

Режим

Real, Protected
Замечания

Ошибки сообщаются в переменной DosError.


При возникновении аварийных ситуаций устанавливаются такие

коды ошибок:
2 - файл не найден;
8 - нет необходимой памяти;
10 - ошибка в оборудовании;
11 - ошибка в формате.

Пример

{$M $4000, 0, 0 } { 16Kб стек, нет кучи }
uses Dos;

var
ProgramName, CmdLine : String;
begin
Write('Имя программы для запуска (с путём) : ');
ReadLn(ProgramName);
Write('Параметры командной строки ', ProgramName, ' : ');
ReadLn(CmdLine);
WriteLn('Пробую запустить...');
SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;
WriteLn('... вернулся из Exec');
{ Была ошибка ? }
if DosError <> 0 then
WriteLn('Ошибка DOS #', DosError)
else
WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);
end.


проверь какая ошибка возвращается

постоянно выбивает ошибку 2..

 

[Ultras]

exec('c:\program files(x86)\aimp3\aimp3.exe');

постоянно выбивает ошибку 2..

Попробуйте записать путь в коротком формате (вмето "program files(x86)" "progra~1" или какой он там у Вас по счёту)...

 

[Daniellos]

Попробуй указать путь C:\PROGRA~2\aimp3\aimp.exe

 

[grelly]

не помню как правильно в паскале, но бэкслэши не двойные ли должны быть?