Задачка №19

Что не так с этим кодом?

procedure TForm1.Button1Click(Sender: TObject);
type
  TImportedProc = procedure; safecall; 
var
  DLLFileName: String;
  DLL: HMODULE;
  Test: TImportedProc; 
begin
  DLLFileName := ExtractFilePath(ParamStr(0)) + 
    'DLLs' + PathDelim + 'Project2.dll';

  DLL := LoadLibrary(PChar(DLLFileName));
  Win32Check(DLL <> 0);
  try
    try
      Test := GetProcAddress(DLL, 'Test');
      Win32Check(Assigned(Test));

      Test;
    except
      Application.HandleException(Sender);
    end;
  finally
    Test := nil;

    FreeLibrary(DLL);
    DLL := 0;
  end;
end;

По сути, этот код просто загружает DLL-библиотеку из подпапки DLLs папки приложения и вызывает из неё функцию Test. Для простоты положим, что функция Test просто показывает сообщение (MessageBox).

Код написан в предположении, что:

1. DLL существует и доступ к ней есть;
2. Функция с таким именем есть в DLL;
3. Сигнатура функции в EXE совпадает с сигнатурой функции в DLL;
4. Разрядность DLL совпадает с разрядностью приложения;
5. DLL и EXE разрабатываются одним и тем же человеком;
6. DLL является простой DLL, это не сборка (assembly), она не имеет манифеста;
7. В приложении либо нет манифеста, либо манифест не содержит указания на 'Project2.dll';
8. Все проекты Delphi лежат в тех же папках, что и исполняемые файлы; output-каталоги установлены в '.'; Иными словами, нет никаких подпапок .\Win32\Debug\ или .\Debug\Win32\, т.е. структура файлов на диске соответствует уже развёрнутому (установленному) приложению.

В целом, можно увидеть, что код написан достаточно хорошо:

1. Мы загружаем DLL по полному абсолютному пути, а не по относительному;
2. Мы проверяем коды ошибок функций Windows API;
3. Мы используем соглашение "safecall";
4. На случай если DLL всё же облажается - мы обрабатываем исключение из DLL до выгрузки DLL;
5. Мы даже очищаем описатель DLL и загруженную функцию, чтобы (ошибочно) не использовать их далее по коду.

Казалось бы, мы предусмотрели всё? Тем не менее, в этом коде всё ещё есть одна существенная проблема. Что же это?

P.S. Окей, это не столько самостоятельная задачка, сколько подготовка к очередной статье.
P.P.S. Товарищи, проблема не в исключениях.

Ответ.