Version 4.13 Connecting your DLLs. Using API functions in a script from standard libraries

unpack ("C:\MuDll.dll", pathfolder () +"MuDll.dll", 0); //Unpack your Dll from the resources in the program folder

//This is a connection of standard dynamically linked libraries (user32.dll, kernel32.dll, etc.) for working with Win API
external (INT,"my_message","MessageBoxA","user32.dll"); //Get a pointer to the MessageBoxA function
external (VOID,"my_exit","ExitProcess","kernel32.dll"); //Obtaining a pointer to the ExitProcess function

//This is the connection of their Dlls that should be in the program folder. All the same.
external (INT,"my_add","Add","MuDll.dll"); //Getting a pointer to the Add function
external (VOID,"my_pisk","DllCod","MuDll.dll"); //Obtaining a pointer to the DllCod function

//After connecting the Dll and defining the addresses of the functions to be called (the third parameter) with Dll, they can be called with Kibor by the username specified in the second parameter.
messagebox ("sum 57 + 7="+ format (my_add (57, 7))); //Call the Add function from its Dll
char c [250];
strcpy (#c [0],"This code works with the DLL, the text was passed in the function parameter.");
my_pisk (2000, 1000, address (#c [0])); //Call the DllCod function from its Dll

//Here we use in the script call Api functions with user32.dll and kernel32.dll
int a;
s: a=my_message (0,"Close the program ??????","Title", 6); //Call the MessageBoxA with user32.dll
if (a==10) goto s;
if (a==11) my_exit (0); //Call ExitProcess from kernel32.dll

RESOURCE
{
"C:\MuDll.dll"//We'll pack our DLL into the resources of the assembled exe
}

#include


extern"C"__declspec (dllexport) int Add (int i1, int i2)
{
return i1 + i2;
}

extern"C"__declspec (dllexport) void DllCod (int p1, int p2, char * c)
{

Beep (p1, p2);
MessageBox (0, c,"Window with DLL", 0);
}