Тема: Version dll
Показать сообщение отдельно
  #4  
Старый 20.11.2012, 00:13
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Для таких случаев предпочитаю создавать DLL на ассемблере.
Код:
.386
.model flat, stdcall
option casemap :none   ; case sensitive

.code

include windows.inc

DllEntry proc hInstance : HINSTANCE, reason : DWORD, reserved1 : DWORD
  .IF reason == DLL_PROCESS_ATTACH
     mov eax, TRUE
  .ELSEIF reason == DLL_PROCESS_DETACH
     mov eax, TRUE
  .ELSE
     xor eax, eax
  .endif
  ret
DllEntry Endp

My_GetVersion proc
  mov eax, 1 ; номер версии
  ret
My_GetVersion endp

end DllEntry
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием