Функция ShellExecute

[marusua]

здравствуйте! У меня следующая ситуация: использую функцию ShellExecute для того, чтобы открывался *.pdf файл при нажатии на label, но первое время, когда открываешь первых два файла все нормально, на третий раз виснет программа, а на данный момент при первом нажатии на такую ссылку висяк!!

Вот то, что я использую или использовала:

ShellExecute(Handle,nil,PChar('d:\Технологическая практика\Проект\Дополнительно\001_2- Всемирная история Учебник для вузов_Поляк Маркова_2000.pdf'),nil,nil,SW_RESTORE);

ShellExecute(h, 'open', 'd:\Технологическая практика\Проект\Дополнительно\001_1- Всемирная история Учебник для вузов_Поляк Маркова_2000.pdf', nil, nil, SW_SHOW);

Так же использовала CreateProcess. Вот пример:

CreateProcess(nil, 'cmd.exe /c net session >d:\Технологическая практика\Проект\Дополнительно\001_1- Всемирная история Учебник для вузов_Поляк Маркова_2000.pdf', nil, nil, False, 0, nil, nil, startupinfo, processinformation);

Помогите, пожалуйста!!!

[Stilet]

if ShellExecute(form1.handle,'open','d:\Технологическая практика\Проект\Дополнительно\001_1- Всемирная история Учебник для вузов_Поляк Маркова_2000.pdf','d:\Технологическая практика\Проект\Дополнительно\','',SW_SHOW)<=32
then RaiseLastOSError();

Выполняй это и приводи сюда ошибку, что может выскочить на, как ты утверждаешь, третий раз.

Еще такой момент: Ты это где прописываешь?

[marusua]

вот изображение ошибки!!!
и уже на первый раз висяк!!!

в последующем вот эта ошибка:

прописываю на Label, точнее вот такая процедура:

procedure TLitForm.sLabelFX1Click(Sender: TObject);

затем еще одна:

[alextrof94]

Может все дело в SW_RESTORE и SW_SHOW??
Попробуй

ShellExecute(application.handle, 'open', 'd:\Технологическая практика\Проект\Дополнительно\001_1- Всемирная история Учебник для вузов_Поляк Маркова_2000.pdf', nil, nil, SW_SHOWNORMAL);

И путь, я надеюсь, правильно указан?
ShellExecute на самом то деле должен передавать что хочет сделать системе, а затем можно хоть саму программу закрыть, действие выполнится.

[marusua]

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

if ShellExecute(form1.handle,'open','d:\Технологическая практика\Проект\Дополнительно\001_1- Всемирная история Учебник для вузов_Поляк Маркова_2000.pdf','d:\Технологическая практика\Проект\Дополнительно\','',SW_SHOW)<=32
then RaiseLastOSError();

Выполняй это и приводи сюда ошибку, что может выскочить на, как ты утверждаешь, третий раз.

Еще такой момент: Ты это где прописываешь?

прописываю на Label, точнее вот такая процедура:

procedure TLitForm.sLabelFX1Click(Sender: TObject);

ошибки следующие (уже на первый раз):

[alextrof94]

Вторая ошибка - закончилось время ожидания завершения процесса. 3я ошибка - ошибка дельфей - сохрани и перезапусти дельфи.

[marusua]

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

Может все дело в SW_RESTORE и SW_SHOW??
Попробуй

ShellExecute(application.handle, 'open', 'd:\Технологическая практика\Проект\Дополнительно\001_1- Всемирная история Учебник для вузов_Поляк Маркова_2000.pdf', nil, nil, SW_SHOWNORMAL);

И путь, я надеюсь, правильно указан?
ShellExecute на самом то деле должен передавать что хочет сделать системе, а затем можно хоть саму программу закрыть, действие выполнится.

не знаю что тут вообще происходит... то нормально открывал, а то опять виснет!!!

когда еще не вис была ошибка формата:

[alextrof94]

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

теперь нет висяка!! открывает нормально)) но почему-то не нравится Foxit Reader формат rtf ... точнее другие два файла (разные rtf файлы) открывает .. а этот не хочет

хммм. это я уже хз. Я обычно rtf через wordpad открываю, так и быстрее и правильнее, но это должно быть по умолчанию в системе настроено, так что от программиста тут мало что зависит. Может файл битый.

[marusua]

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

Вторая ошибка - закончилось время ожидания завершения процесса. 3я ошибка - ошибка дельфей - сохрани и перезапусти дельфи.

попробуй тут сохранить, когда виснет и делфи, и программа .. приходится лезть в Диспетчер и отключать делфи.. больше никак

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

хммм. это я уже хз. Я обычно rtf через wordpad открываю, так и быстрее и правильнее, но это должно быть по умолчанию в системе настроено, так что от программиста тут мало что зависит. Может файл битый.

как выше изложено , уже опять та же история, что и ранее!!

файл нормальный!!!

[alextrof94]

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

как выше изложено , уже опять та же история, что и ранее!!

файл нормальный!!!

открой его ручками в вордпаде и пересохрани.