При вызове ShellExecuteEx получаю 5-ю ошибку:

← →
miwa © (2003-07-15 21:37) [0]

"В доступе отказано". Вот кусок кода:
GetMem(sh, sizeof(sh^)); ZeroMemory(sh, sizeof(sh^)); with sh^ do begin cbSize:=sizeof(sh); fMask:=SEE_MASK_NOCLOSEPROCESS; Wnd:=Handle; lpVerb:="open"; lpFile:=pchar(prog); //программа, котру надо запустить lpParameters:=pchar(fil[n].path); //а это файл, который она загружает nShow:=SW_SHOW; end; try Win32Check(ShellExecuteEx(sh)); //вот здесь 5-я ошибка frmWait.Close; while not Application.Terminated and (WaitForSingleObject(sh.hProcess, 100)=WAIT_TIMEOUT) do application.ProcessMessages; finally if sh.hProcess <> 0 then CloseHandle(sh.hProcess); Dispose(sh); frmWait.Close; end;

Кстати, код-то полностью содран с ФАКа. Поєтому тем более непонятно, откуда у меня руки ростут... :о((
Проходился по коду F7/F8 - вроде все нормально: память выделяется, все вроде ОК, а в указанной строке - капут.

← →
Иван Шихалев © (2003-07-15 21:47) [1]

Может, все дело в запускаемой программе? Как именно ошибка выглядит?

← →
miwa © (2003-07-15 22:06) [2]

Неа, вряд ли в запускаемой программе, поскольку через "обыкновенный" ShellExecute запускается. Программа - уж какая будет. Проверял на mplayer2 и winword, файлы - разные, но открываемые этимим программами через ShellExecute.
А ошибка... Поскольку Win32Check возбуждает исключение, то так и выглядит. Runtime error No5: Access denied.

← →
Ученик © (2003-07-15 23:11) [3]

А вот здесь cbSize:=sizeof(sh), какое значение ?

Не помню и не имею возможности проверить, но если Вы имеете в виду, что должно было быть cbSize:=sizeof(sh^), то мне надо бить не только морду, но и руки, а также... Неа, только голову, как рабочий инструмент :о), который не справляется со своими функциями :о). Мля, даже с ФАКа код переписать не могу.
ПОЗОР МНЕ!

2 Ученик © (15.07.03 23:11)
Спасибо.

При вызове ShellExecuteEx получаю 5-ю ошибку: Найти похожие ветки