Особенности ShellExecute - Win Api - Страница 2

vovk · 17.01.2011, 10:56

Если я правильно понял то,
Пепел Феникса говорил о базовой директории не того приложения которое вы пишите, а того exe файла который вы запускаете из своего приложения.
По моему тоже проблема именно там, просто тот экзешник пытается найти файлы в текущей директории, которая совсем не обязательно равна директории из которой вы запустили ваше приложение.

Flyasd1 · 17.01.2011, 20:16

А может проблема с тем как вы работаете с файлом? Вы что именно с ним делаете? Закрываете ли HANDLE?

StalkerOnix · 18.01.2011, 14:43

Всё оказывается сложнее ShellExecute ни при чём.
Считываю данные из файла

Код:

  fiem: file of Real;
  AssignFile(fiem, FileName);
  Reset(fiem);
  Read(fiem, переменная);
  ....
  CloseFile(fiem);

а затем:

Код:

    ShellExecute(handle, 'open', PAnsiChar('Ritapolar.exe'), nil, nil, SW_RESTORE);

Если перву часть не выполнять, то запускаемое приложение обращается к нужному файлу и всё нормуль. А если выполнить, то оно уже не может обратиться к файлам (exe написан на фортране не мной, если поможет)

vovk · 18.01.2011, 15:55

попробуйте

Код:

 ShellExecute(handle,nil, PAnsiChar('Ritapolar.exe'), nil,  Pchar(ExtractFileDir(ParamStr(0))), SW_RESTORE);

Пепел Феникса · 19.01.2011, 01:41

у вас есть диалоги в программе?

запомните, папка с приложением(ExtractFilePath(ParamSt r(0))) и текущая директория(GetCurrentDir).
относительные пути дополняются относительно второго, а не первого.
Open/SaveDialog и тп, меняют её.
поэтому если надо запустить приложение с папки с программой делайте так

Код:

'"'+ExtractFilePath(ParamStr(0))+'Ritapolar.exe"'

это получение абсолютного пути относительно папки с вашим приложением.

StalkerOnix · 19.01.2011, 11:34

Дело уже не в запуске, а втом что при открытии любого типизированного файла в моём приложении и последующим закрытием, другое приложение не может работать с файлами. Даже если его "ручками" запустить.

Пепел Феникса · 19.01.2011, 11:35

у вас нет общих используемых файлов?
(может опять же текущая директория неверна, ибо она наследуется от вашего приложения)

StalkerOnix · 19.01.2011, 11:46

Заработало !
ShellExecute(rwnd, 'open', PAnsiChar(DirPath+'Ritapolar.exe'), nil, PAnsiChar(DirPath), SW_RESTORE);

Благодарю всех за помощь

18.01.2011, 14:43	#13
StalkerOnix Регистрация: 13.01.2011 Сообщений: 7	Всё оказывается сложнее ShellExecute ни при чём. Считываю данные из файла Код: `fiem: file of Real; AssignFile(fiem, FileName); Reset(fiem); Read(fiem, переменная); .... CloseFile(fiem);` а затем: Код: `ShellExecute(handle, 'open', PAnsiChar('Ritapolar.exe'), nil, nil, SW_RESTORE);` Если перву часть не выполнять, то запускаемое приложение обращается к нужному файлу и всё нормуль. А если выполнить, то оно уже не может обратиться к файлам (exe написан на фортране не мной, если поможет)

18.01.2011, 15:55	#14
vovk != Участник клуба Регистрация: 08.09.2008 Сообщений: 1,751	попробуйте Код: `ShellExecute(handle,nil, PAnsiChar('Ritapolar.exe'), nil, Pchar(ExtractFileDir(ParamStr(0))), SW_RESTORE);`

19.01.2011, 01:41	#15
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	у вас есть диалоги в программе? запомните, папка с приложением(ExtractFilePath(ParamSt r(0))) и текущая директория(GetCurrentDir). относительные пути дополняются относительно второго, а не первого. Open/SaveDialog и тп, меняют её. поэтому если надо запустить приложение с папки с программой делайте так Код: `'"'+ExtractFilePath(ParamStr(0))+'Ritapolar.exe"'` это получение абсолютного пути относительно папки с вашим приложением. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. Последний раз редактировалось Пепел Феникса; 19.01.2011 в 01:45.

19.01.2011, 11:35	#17
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	у вас нет общих используемых файлов? (может опять же текущая директория неверна, ибо она наследуется от вашего приложения) Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Особенности getch и getchar	Lotles	Общие вопросы C/C++	1	18.12.2010 19:32
Особенности вертикальной синхронизации	Lotles	Компьютерное железо	3	14.12.2010 17:48
Полиморфизм и его особенности	Syltan	PHP	3	07.12.2010 21:07
Особенности SSL	OCTAGRAM	Свободное общение	2	01.01.2010 16:42
Особенности разных версий	mutabor	Microsoft Office Excel	3	21.04.2009 21:08

17.01.2011, 10:56	#11
vovk != Участник клуба Регистрация: 08.09.2008 Сообщений: 1,751	Если я правильно понял то, Пепел Феникса говорил о базовой директории не того приложения которое вы пишите, а того exe файла который вы запускаете из своего приложения. По моему тоже проблема именно там, просто тот экзешник пытается найти файлы в текущей директории, которая совсем не обязательно равна директории из которой вы запустили ваше приложение.

17.01.2011, 20:16	#12
Flyasd1 Пользователь Регистрация: 06.01.2011 Сообщений: 11	А может проблема с тем как вы работаете с файлом? Вы что именно с ним делаете? Закрываете ли HANDLE?

19.01.2011, 11:34	#16
StalkerOnix Регистрация: 13.01.2011 Сообщений: 7	Дело уже не в запуске, а втом что при открытии любого типизированного файла в моём приложении и последующим закрытием, другое приложение не может работать с файлами. Даже если его "ручками" запустить.

19.01.2011, 11:46	#18
StalkerOnix Регистрация: 13.01.2011 Сообщений: 7	Заработало ! ShellExecute(rwnd, 'open', PAnsiChar(DirPath+'Ritapolar.exe'), nil, PAnsiChar(DirPath), SW_RESTORE); Благодарю всех за помощь