![]() 5. Full sources |
| Contents | |
Next Section
![]() 7. How to use HIDE to write libraries |
Type "DemoDLL" in the "Project Name" field.Select the DLL radio-button in the Project Type group.
click OK
unit DemoDLLunit;
#include("w.hhf")
// if HLA standard library code is used, uncomment
// the lines below
//label
// shorthwExcept__hla_; @external;
//procedure HWexcept; @external( "HWexcept__hla_" );
//procedure HWexcept;
//begin HWexcept;
// jmp shorthwExcept__hla_;
//end HWexcept;
procedure DemoDLL ( instance:dword;
reason:dword;
reserved:dword
); @stdcall; @external;
procedure DllFunc;
@stdcall; @external;
procedure DemoDLL( instance:dword; reason:dword; reserved:dword ); @nodisplay;
begin DemoDLL;
mov( true, eax );
end DemoDLL;
procedure DllFunc; @nodisplay;
begin DllFunc;
w.MessageBox(NULL,"Hello From DLL","From DemoDLL",w.MB_OK);
end DllFunc;
end DemoDLLunit;
EXPORTS DemoDLL DllFunc
program DemoDLLTest;
#include("stdlib.hhf")
procedure DllFunc; @external;
begin DemoDLLTest;
call DllFunc;
end DemoDLLTest;