Как вызывать функцию 16-битной DLL из 32-битного приложения

Delphi , Файловая система , DLL и PlugIns

Автор: Nomadic

Надо использовать Thunks.

Кусок работающего только под Windows 95 кода

const
  Gfsr_SystemResources = 0;
  Gfsr_GdiResources = 1;
  Gfsr_UserResources = 2;
var
  hInst16: THandle;
  GFSR: Pointer;
  { Undocumented Kernel32 calls. }

function LoadLibrary16(LibraryName: PChar): THandle; stdcall; external kernel32
  index 35;

procedure FreeLibrary16(HInstance: THandle); stdcall; external kernel32 index
  36;

function GetProcAddress16(Hinstance: THandle; ProcName: PChar): Pointer;
  stdcall;
  external kernel32 index 37;

procedure QT_Thunk; cdecl; external kernel32 name 'QT_Thunk';
{ QT_Thunk needs a stack frame. }
{$STACKFRAMES On}
{ Thunking call to 16-bit USER.EXE. The ThunkTrash argument
allocates space on the stack for QT_Thunk. }

function NewGetFreeSystemResources(SysResource: Word): Word;
var
  ThunkTrash: array[0..$20] of Word;
begin
  { Prevent the optimizer from getting rid of ThunkTrash. }
  ThunkTrash[0] := hInst16;
  hInst16 := LoadLibrary16('user.exe');
  if hInst16 < 32 then
    raise Exception.Create('Can''t load USER.EXE!');
  { Decrement the usage count. This doesn't really free the
  library, since USER.EXE is always loaded. }
  FreeLibrary16(hInst16);
  { Get the function pointer for the 16-bit function in USER.EXE. }
  GFSR := GetProcAddress16(hInst16, 'GetFreeSystemResources');
  if GFSR = nil then
    raise Exception.Create('Can''t get address of GetFreeSystemResources!');
  { Thunk down to USER.EXE. }
  asm
    push SysResource { push arguments }
    mov edx, GFSR { load 16-bit procedure pointer }
    call QT_Thunk { call thunk }
    mov Result, ax { save the result }
  end;
end;

Что за blast from the past!

Этот код - классический пример использования thunk для вызова 16-битной DLL (USER.EXE) из 32-разрядного приложения на Windows 95. Вот разбивка, что он делает:

1. Функция LoadLibrary16 загружает библиотеку USER.EXE в память.
2. Функция FreeLibrary16 используется для уменьшения счетчика использования загруженной библиотеки.
3. Функция GetProcAddress16 получает адрес функции GetFreeSystemResources в загруженной библиотеке.
4. Функция QT_Thunk - thunk, который вызывает 16-разрядную функцию с правильной структурой стека и конвенцией передачи аргументов.

Вот что происходит:

• Функция NewGetFreeSystemResources принимает параметр Word SysResource и возвращает результат Word.
• Она сначала выделяет место на стеке для thunk (ThunkTrash) для предотвращения оптимизации.
• Затем она загружает библиотеку USER.EXE, получает адрес функции GetFreeSystemResources, и проверяет, была ли загрузка успешной.
• Если все в порядке, она вызывает thunk с помощью ассемблерного кода:
  • Пушит аргумент SysResource на стек.
  • Загружает 16-разрядный процедурный указатель в edx.
  • Вызывает thunk (QT_Thunk) с правильной конвенцией вызова (т.е., используя call вместо stdcall).
  • Сохраняет результат в переменной Result.
• Функция QT_Thunk определена как функция cdecl, что означает, что она использует стандартную конвенцию вызова для 16-разрядного кода (т.е., передача аргументов на стек и возвращение значений в регистрах).

В целом, этот код использует thunks для вызова 16-разрядной DLL из 32-разрядного приложения, создавая thunk, который вызывает 16-разрядную функцию с правильной структурой стека и конвенцией передачи аргументов. Это позволяет 32-разрядному приложению использовать функциональность 16-разрядной DLL.

Теперь, если вы позволите, я должен уйти и пощелкать свой старый CD Windows 95...

В статье описывается способ вызова функции 16-битной DLL из 32-битного приложения на платформе Windows с помощью технологии thunking и использования неdocumented Kernel32-вызовов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: DLL и PlugIns ::