Текущий архив: 2002.03.18;
Скачать: CL | DM;

Вниз

Запуск приложений   Найти похожие ветки 

← →
Андрей Сенченко ©   (2002-01-17 12:45) [8]

> Юрий Зотов © (16.01.02 18:28)
>> dark
>> не запускаются приложения Word и Excel
Это вряд ли... А если и правда не запускает, то причина не в этом коде, а в том, как он используется.

Дело в том, что действительно не запускаются, если написать вот так:
( основа взята из FAQ )
var
si:STARTUPINFO;
pi:PROCESS_INFORMATION;
begin
ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
if not CreateProcess( "Excel.exe", // Module name.
nil, // No command line.
nil, // Process handle not inheritable.
nil, // Thread handle not inheritable.
False, // Set handle inheritance to FALSE.
0, // No creation flags.
nil, // Use parent"s environment block.
nil, // Use parent"s starting directory.
si, // Pointer to STARTUPINFO structure.
pi ) // Pointer to PROCESS_INFORMATION structure.
then
begin
ShowMessage( "CreateProcess failed." );
Exit;
end;
WaitForSingleObject( pi.hProcess, INFINITE );
CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );
ShowMessage("Done !");
end;
Так как запуск приложения происходит отнюдь не из директории Мелкософот Офиса. Кстати я тоже не смог побороть эту проблему никак кроме предварительного поиска EXCEL и WORD на диске ( при инициализации программы ) и прошивки их пуией в переменные среды.

Может посоветуете более простой путь ?

---

Страницы: 1 вся ветка

Текущий архив: 2002.03.18;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.009 c