Показать сообщение отдельно
Старый 04.06.2009, 22:32   #1
Randomize
[object Object]
 
Аватар для Randomize
 
Регистрация: 01.08.2008
Адрес: В России
Сообщений: 4,355
Написано 2,471 полезных сообщений
(для 6,853 пользователей)
Как приделать к BlitzMax DLL

Хочу приделать Dll к BlitzMax судя по статье Blitz Et Cetera, где я черпал инфу по данному вопросу выяснилось что это делается вот так:

SuperStrict

Module тратата.тратата
Import brl.blitz
	
Const DLL:String= "НацНац.dll"

Extern "win32"
	Function FindWindowA%(class%,title$z)
	Function LoadLibraryA(lib$z)
	Function GetProcAddress:Byte Ptr(lib%,fname$z) 
End Extern


	Global Привет(x%,y%) "win"
	Global Пока   (x%,y%) "win"



Global lib%=LoadLibraryA()
If lib% Then
	Привет(x%,y%) =GetProcAddress(lib,"Preved")
	Пока   (x%,y%) =GetProcAddress(lib,"GoodPoka")
Else
	RuntimeError("Не не не, Девид Блейн!  " + DLL) 
	End
End If
Но не канает. :э(
Очевидно в ковычках в GetProcAddress(lib,"Preved") помимо названия фции должны быть
ещё и её параметры, но как их там указывать я пока не понял.
Ктонибуть может помочь?
А поможет?
__________________
Retry, Abort, Ignore? █
Intel Core i7-9700 4.70 Ghz; 64Gb; Nvidia RTX 3070
AMD Ryzen 7 3800X 4.3Ghz; 64Gb; Nvidia 1070Ti
AMD Ryzen 7 1700X 3.4Ghz; 8Gb; AMD RX 570
AMD Athlon II 2.6Ghz; 8Gb; Nvidia GTX 750 Ti
(Offline)
 
Ответить с цитированием