|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.06.2012, 22:23 | #1 |
Форумчанин
Регистрация: 04.08.2009
Сообщений: 101
|
запуск приложение
как запустить другой приложение через codegear 2009, на пример файл .doc
ShellExecute(Handle,nil,pchar(Extra ctFilePath(Application.ExeName)+'1. doc') ,nil, nil, SW_SHOW); не работает |
06.06.2012, 22:27 | #2 |
читер
Форумчанин
Регистрация: 05.10.2009
Сообщений: 150
|
Код:
$me = $me == $me ? $me : $me;
|
07.06.2012, 01:30 | #3 |
Форумчанин
Регистрация: 06.02.2011
Сообщений: 149
|
> ShellExecute(Handle,nil,pchar(Extra ctFilePath(Application.ExeName)+'1. doc') ,nil, nil, SW_SHOW);
После этого сделай вот так: ShowMessage(SysErrorMessage(GetLast Error)); Возможно, у тебя путь кривой (это к примеру). > смотрим на 1 и 2 параметры и дзенствуем Да ладно - с параметрами у Мавлона всё ровно, его вариант вполне рабочий, не надо паники (:
Профессиональный конвертор галлюцинаций заказчика в алгоритмическую структуру.
|
07.06.2012, 07:36 | #4 | |
читер
Форумчанин
Регистрация: 05.10.2009
Сообщений: 150
|
1) ExtractFilePath(Application.ExeName ) лучше заменить на extractfilepath(paramstr(0))
2) Цитата:
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx rtfm
$me = $me == $me ? $me : $me;
Последний раз редактировалось [MoNAMur]; 07.06.2012 в 07:40. |
|
07.06.2012, 07:40 | #5 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Чем лучше?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
07.06.2012, 08:12 | #6 |
читер
Форумчанин
Регистрация: 05.10.2009
Сообщений: 150
|
xD писать короче, выглядит не хуже, а на выходе тоже. так почему не использовать то что быстрее написать))
ну и у меня бывает такое что Application.ExeName выдает мне дос путь с символами "~", а вот paramstr(0) меня еще ни разу не подводила. правда тут есть подводный камень - если в ярлыке на программу указать рабочую директорию, а в объекте только exe файл, и запустить через ярлык, то тогда результаты неправильные должны быть. Но кто в здравом уме такое сотворит?
$me = $me == $me ? $me : $me;
|
07.06.2012, 08:48 | #7 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
у вас тут полный путь поидее, причем тут рабочая директория?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
07.06.2012, 14:23 | #8 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
07.06.2012, 15:35 | #9 | |
Форумчанин
Регистрация: 06.02.2011
Сообщений: 149
|
Цитата:
> The lpOperation parameter can be NULL. In that case, the function opens the file specified by lpFile. msdn: > The default verb is used, if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry. По факту, гражданину требуется (как я понимаю) именно выполнить действие по умолчанию для файла указанного типа. Ради интереса можешь поставить эксперимент: для любого расширения в реестре переименовать HKCR\[type]\shell\open на, допустим, zopen, и посмотреть, что получится. Nil в данном случае рулит.
Профессиональный конвертор галлюцинаций заказчика в алгоритмическую структуру.
Последний раз редактировалось ych_del; 07.06.2012 в 15:53. |
|
07.06.2012, 15:37 | #10 |
Форумчанин
Регистрация: 06.02.2011
Сообщений: 149
|
Убираем Forms из uses и наслаждаемся сообщениями Application: Identifier unknown.
Профессиональный конвертор галлюцинаций заказчика в алгоритмическую структуру.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Приложение | ALEX777a | Фриланс | 5 | 14.03.2012 13:27 |
Запретить второй запуск программы. Приложение без окон | Lauri | Общие вопросы Delphi | 18 | 05.07.2011 15:48 |
ЗАпуск | Волк | Общие вопросы Delphi | 1 | 15.05.2011 13:53 |
Задача:в вижуал с++ Разработать приложение-сервер и приложение (смотри дальше сообщение) | Мила777 | Фриланс | 2 | 21.10.2009 11:05 |
запуск | kalin | Общие вопросы Delphi | 8 | 02.03.2007 05:27 |