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

k1d · 21.05.2014, 12:38

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

grelly · 21.05.2014, 15:23

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

k1d · 21.05.2014, 22:11

Цитата:

Сообщение от grelly

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

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

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

grelly · 22.05.2014, 08:07

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 · 22.05.2014, 11:21

Цитата:

Сообщение от 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.

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

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

Ultras · 22.05.2014, 11:44

Цитата:

Сообщение от k1d

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

Цитата:

Сообщение от k1d

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

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

Daniellos · 22.05.2014, 11:55

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

grelly · 22.05.2014, 13:58

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

21.05.2014, 12:38	#1 (permalink)
k1d Member Регистрация: 16.05.2014 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Написать программу, которая вводит название другой программы и запускает её Написать программу, которая вводит название другой программы и запускает ее.

21.05.2014, 15:23	#2 (permalink)
grelly падаван Регистрация: 23.01.2013 Сообщений: 739 Сказал(а) спасибо: 307 Поблагодарили 27 раз(а) в 3 сообщениях Репутация: 10792	Куда вводит? Если просто запустить, то это либо winexec(), либо ShellExecute(), либо execl

22.05.2014, 08:07	#4 (permalink)
grelly падаван Регистрация: 23.01.2013 Сообщений: 739 Сказал(а) спасибо: 307 Поблагодарили 27 раз(а) в 3 сообщениях Репутация: 10792	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. проверь какая ошибка возвращается

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

22.05.2014, 11:55	#7 (permalink)
Daniellos Хозяин Медной Горы Регистрация: 01.08.2011 Адрес: Армавир Сообщений: 12,159 Записей в дневнике: 8 Сказал(а) спасибо: 751 Поблагодарили 88 раз(а) в 27 сообщениях Репутация: 57416	Попробуй указать путь C:\PROGRA~2\aimp3\aimp.exe

22.05.2014, 13:58	#8 (permalink)
grelly падаван Регистрация: 23.01.2013 Сообщений: 739 Сказал(а) спасибо: 307 Поблагодарили 27 раз(а) в 3 сообщениях Репутация: 10792	не помню как правильно в паскале, но бэкслэши не двойные ли должны быть?