20.11.2012, 00:13
|
|
.
|
|
Регистрация: 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 в.д.
|