Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 08.02.2019, 16:48
Konstantin-78 Konstantin-78 вне форума
Новичок
 
Регистрация: 27.04.2015
Сообщения: 76
Версия Delphi: Delphi7
Репутация: 10
По умолчанию Не могу поймать исключение ShellExecuteEx

Доброе время суток форумчане
Была и есть у меня библиотека, только с некоторых пор у меня стала через раз работать функция «ShellExecute» (раз, 2, 3 откроет word файл, и все, далее программа файл создает, но не открывает (файл word – корректный, к тому же создает один и тот же файл по одному алгоритму)),
Заменил ее на «ShellExecuteEx»

Код:
function LAUNCH_FILE(const AFileName: string): Boolean;
var
  ShellExecuteInfo: TShellExecuteInfo;
  LExtension: PAnsiChar;
begin
  begin
    FillChar(ShellExecuteInfo, SizeOf(ShellExecuteInfo), 0);
    ShellExecuteInfo.fMask := SEE_MASK_CLASSNAME;
    ShellExecuteInfo.nShow := SW_MAXIMIZE;
    ShellExecuteInfo.lpClass := PChar(AFileName);

    ShellExecuteInfo.Wnd := FMain.Handle;

    ShellExecuteInfo.lpVerb := 'open';
    ShellExecuteInfo.lpFile := PChar(AFileName);
    ShellExecuteInfo.cbSize := SizeOf(ShellExecuteInfo);
    if not ShellExecuteEx(@ShellExecuteInfo)  then
    begin
       ShowMessage('bad');
         Application.MessageBox(PChar(SysErrorMessage(GetLastError)), 'Ошибка', MB_OK or MB_ICONERROR);
      case ShellExecuteInfo.hInstApp of
        SE_ERR_FNF: ShowMessage('Файл не найден');
        SE_ERR_PNF: ShowMessage('Путь не найден');
        SE_ERR_ACCESSDENIED: ShowMessage('Доступ к файлу запрещен');
        SE_ERR_OOM: ShowMessage('He хватает памяти');
        SE_ERR_DLLNOTFOUND: ShowMessage('Не найдена необходимая DLL');
        SE_ERR_SHARE: ShowMessage( '-Файл занят другим пользователем');
        SE_ERR_ASSOCINCOMPLETE: ShowMessage('Не полная информация о связанном с файлом приложении');
        SE_ERR_DDETIMEOUT: ShowMessage('Истекло время на выполнение операции DDE');
        SE_ERR_DDEFAIL: ShowMessage('Ошибочная операция DDE');
        SE_ERR_DDEBUSY: ShowMessage('Операция DDE занята');
        SE_ERR_NOASSOC: ShowMessage('Нет приложения, связанного с файлом');
      end

    end
    else ShowMessage('All right');
  end;
end;


Та же самая фигня, но теперь, даже если файл и не открывает, всеравно выдает мое сообщение «('All right')»., т.е. она вообще в блок «исключений» не входит.
Не открывает на Windows XP.
Delphi 10.2 у меня Windows 10.

В чем может быть причина?

Заранее спасибо за ответ.
Ответить с цитированием
  #2  
Старый 08.02.2019, 20:32
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

проверяй не прямой возврат из ShellExecuteEx, а значение в hInstApp > 32.
В MSDN написано, что по факту управление передается Shell Extention, т.е. сама функция может и отработать, а вот то, кому она передала управление - нет. Т.е. код должен выглядеть как-то так:
Код:
var
  rc : Boolean;
...
rc := ShellExecuteEx(@ShellExecuteInfo)
if (rc = False Or ShellExecuteInfo.hInstApp <=32)  then
    begin
       ShowMessage('bad');
         Application.MessageBox(PChar(SysErrorMessage(GetLastError)), 'Ошибка', MB_OK or MB_ICONERROR);
      case ShellExecuteInfo.hInstApp of
        SE_ERR_FNF: ShowMessage('Файл не найден');
        SE_ERR_PNF: ShowMessage('Путь не найден');
        SE_ERR_ACCESSDENIED: ShowMessage('Доступ к файлу запрещен');
        SE_ERR_OOM: ShowMessage('He хватает памяти');
        SE_ERR_DLLNOTFOUND: ShowMessage('Не найдена необходимая DLL');
        SE_ERR_SHARE: ShowMessage( '-Файл занят другим пользователем');
        SE_ERR_ASSOCINCOMPLETE: ShowMessage('Не полная информация о связанном с файлом приложении');
        SE_ERR_DDETIMEOUT: ShowMessage('Истекло время на выполнение операции DDE');
        SE_ERR_DDEFAIL: ShowMessage('Ошибочная операция DDE');
        SE_ERR_DDEBUSY: ShowMessage('Операция DDE занята');
        SE_ERR_NOASSOC: ShowMessage('Нет приложения, связанного с файлом');
         Else ShowMessage('Неизвестная ошибка...');
      end
 
    end
    else ShowMessage('All right');
...
Ответить с цитированием
  #3  
Старый 09.02.2019, 00:59
Konstantin-78 Konstantin-78 вне форума
Новичок
 
Регистрация: 27.04.2015
Сообщения: 76
Версия Delphi: Delphi7
Репутация: 10
По умолчанию

кажется нашел проблему: у меня функция сохраняющий документ

Код:
function SaveDocAs(ANamePath, ANameFile: string; AOpenDoc: integer):boolean; export;
//save created doc
{
LOpenDoc
  0 - not open created doc
  1 - open created doc
}
var
  LPath: string;
begin
  SaveDocAs := true;
  try
    begin
      Words_Templs.ActiveDocument.SaveAs(ANamePath+VERIFICATION_NAME_FILE(ANameFile));
      CloseDoc;
      Close_Document(0);
      Words_Templs := Unassigned;
      CoUninitialize;
      if AOpenDoc = 1 then
        OPEN_MAKE_DOC(ANamePath, VERIFICATION_NAME_FILE(ANameFile), '', 0, LPath);

    end;
  except
    SaveDocAs := false;
  end;
end;
строки разрушаюшие объект

Код:
Words_Templs := Unassigned;
  CoUninitialize;
были после "if AOpenDoc = 1 then", которые его открывают. т.е. пытался открыть не разрушенный объект

только 10 это как-то обрабатывала, а ХР - отказывалась
Во всяком случае после этой замены, все пока открывается без проблем
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:48.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter