Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.15;
Скачать: CL | DM;

Вниз

При вызове 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), какое значение ?


 
miwa ©   (2003-07-15 23:24) [4]

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

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


 
Юрий Федоров ©   (2003-07-16 12:47) [5]

>>miwa © (15.07.03 23:24)
Да ладно тебе так сокрушаться, бывает со всеми :-)))



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

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

Наверх




Память: 0.48 MB
Время: 0.024 c
11-48487
microlab
2003-01-06 19:26
2003.09.15
TKOLListView


14-48730
Dmitriy O.
2003-08-26 11:57
2003.09.15
Как приготовить яйцо в микроволновке


14-48750
Rauf
2003-08-26 03:02
2003.09.15
Подскажите сервер поддерживающий Перл ИЛИ ПХП!!!


1-48589
download
2003-09-01 00:05
2003.09.15
Автозавершение строки при введении её в Memo


3-48481
Lamer_of_Delphi
2003-08-22 11:04
2003.09.15
Получение значений ВСЕХ записей!!!