Главная страница
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.016 c
1-48593
Теран
2003-09-03 17:21
2003.09.15
Форматирование ячеек Excel из Delphi


1-48491
ЮРИЙ_К
2003-09-03 12:06
2003.09.15
Как привязаться к относительным координатам ветки дерева TreeView


14-48692
Grouzd[E]v
2003-08-24 18:38
2003.09.15
Будете смеятся: как работать с архивами??? - я еще новичок :(((


3-48465
napil
2003-08-22 12:09
2003.09.15
1С файлы dbf


14-48701
VictorT
2003-08-28 17:11
2003.09.15
Моё терпение и такт скоро закончится :)