С Новым годом! Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
0 / 0 / 0
Регистрация: 03.09.2013
Сообщений: 6

ShellExecute не всегда работает

10.09.2013, 00:00. Показов 2475. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте. Не подскажите, почему после выполнения кода:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
if (OpenDialog3->Execute())
  {  AnsiString MyFN="";
     double IPar[20];
 
     MyFN=OpenDialog3->FileName;
     ifstream infile(MyFN.c_str());
 
    std::auto_ptr<TStringList> slRows(new TStringList);
    slRows->LoadFromFile(OpenDialog3->FileName);
 
  DecimalSeparator = '.';
 
    for(int j=0; j<20; j++)
      {
       infile>>IPar[j];      
       infile.ignore(std::numeric_limits<std::streamsize>::max(), '\n');
       ValueListEditor2->Cells[1][j+1]=FloatToStrF(IPar[j], ffFixed, 8, 5);
      }
 
 infile.close();
 DecimalSeparator = ',';
 
   }
перестает работать ShellExecute(0,"open","file.txt",NULL,0, SW_RESTORE) ?????
Соответственно, если не вызывать OpenDialog3 - все в порядке (файл file.txt открывается).
Заранее большое СПАСИБО.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
10.09.2013, 00:00
Ответы с готовыми решениями:

ShellExecute не работает
Доброго времени суток. Вот такая задачка хочу открыть программу через OpenDialog вот пример : if (OpenDialog1-&gt;Execute()) { ...

Не работает ShellExecute
На компе не срабатывает кнопка с кодом void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString s1; s1 =...

Почему не работает ShellExecute
В чем прикол с ShellExecute? Есть код: void __fastcall TMainForm::GeneticalgorithmGA1Click(TObject *Sender){ UnicodeString...

7
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33371 / 21497 / 8234
Регистрация: 22.10.2011
Сообщений: 36,893
Записей в блоге: 12
10.09.2013, 00:11
Используй абсолютный путь к файлу, а не относительный. Относительный зависит от "текущей папки", которую может поменять вызов OpenDialog->Execute(), то есть, иногда всё даже может работать, а вот потом бах, и перестанет...
1
0 / 0 / 0
Регистрация: 03.09.2013
Сообщений: 6
10.09.2013, 00:25  [ТС]
C++
1
2
3
4
5
6
if (OpenDialog5->Execute())
{ AnsiString MyFN1="";
MyFN1=OpenDialog5->FileName;
 
ShellExecute(0,"open",MyFN1.c_str(),NULL,0,SW_RESTORE);
}
Все равно не получается...

Добавлено через 1 минуту
А где прописать и как абсолютный путь?

Добавлено через 4 минуты
Можно один пример?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33371 / 21497 / 8234
Регистрация: 22.10.2011
Сообщений: 36,893
Записей в блоге: 12
10.09.2013, 00:40
Где лежит файл file.txt, который хочется открыть? В той же папке, где и EXE-шник? Вот и пишем:
C++
1
2
    ShellExecute(0, "open",
        (ExtractFilePath(Application->ExeName) + "file.txt").c_str(), NULL, 0, SW_RESTORE);
2
0 / 0 / 0
Регистрация: 03.09.2013
Сообщений: 6
10.09.2013, 00:52  [ТС]
Что-то все же он не хочет открываться... При этом, например, WinExec(MyFN.c_str(), SW_SHOW ) работает, но он только запускает exe...
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33371 / 21497 / 8234
Регистрация: 22.10.2011
Сообщений: 36,893
Записей в блоге: 12
10.09.2013, 00:55
Я задал вопрос:
Цитата Сообщение от UI Посмотреть сообщение
Где лежит файл file.txt, который хочется открыть?
Если там, где я предположил - то все прекрасно открывается, я проверил. Если нет - то надо, наверное, рассказать, ГДЕ файл, который ты пытаешься запустить?
1
0 / 0 / 0
Регистрация: 03.09.2013
Сообщений: 6
10.09.2013, 01:07  [ТС]
Все так. Он лежит в одной папке с запускаемой программой. До выполнения OpenDialog3 все просто прекрасно. После - глухо...

Добавлено через 5 минут
Кстати, здесь также есть OpenDialog5 , который не мешает выполнению ShellExecute.
C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::BitBtn6Click(TObject *Sender)
{
if (OpenDialog5->Execute())
{ AnsiString MyFN="";
MyFN=OpenDialog5->FileName;
//ShellExecute(0,"open","file.txt",NULL,0,SW_RESTORE);
//ShellExecute(0,"open",MyFN.c_str(),NULL,0,SW_RESTORE);
//WinExec("notepad.exe file.txt",SW_SHOW);
ShellExecute(0, "open",(ExtractFilePath(Application->ExeName) + "file.txt").c_str(), NULL, 0, SW_RESTORE);
// system (string("file.txt").c_str());
}
Т.е. , видимо, сам OpenDialog5->Execute() не вредит...
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33371 / 21497 / 8234
Регистрация: 22.10.2011
Сообщений: 36,893
Записей в блоге: 12
10.09.2013, 10:37
Цитата Сообщение от mp7 Посмотреть сообщение
видимо, сам OpenDialog5->Execute() не вредит...
Если ты задаешь уже полный путь к файлу, то он и не может вредить. А чтобы выяснить, почему файл не открылся - попробуй вспомнить, что ShellExecute - это функция, и что она возвращает результат, по которому можно понять причину неудачи. Проверь, в чем проблема...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
10.09.2013, 10:37
Помогаю со студенческими работами здесь

ShellExecute не работает без OpenDialog, хотя последний там никаким боком
Всем доброго времени суток. Пишу простейшую программу, которая открывает файл. ...

Запуск файла через ShellExecute не всегда срабатывает
Команда на запуск файла срабатывает в 70% случаях. Почему так иногда происходит? ShellExecute(Handle, 'open',...

ShellExecute не работает
Ктонить подскажет, почему вот такой код не работает? ShellExecute(Handle, 'open', 'cmd.exe', '/c...

Не работает ShellExecute
procedure TForm1.Button1Click(Sender: TObject); var lat:String; lon:String; begin lat:=Edit2.Text; lon:=Edit3.Text; ...

Не работает ShellExecute
Вот код: program Project3; {$APPTYPE CONSOLE} uses SysUtils, ShellAPI;


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru