First, the French DLL
ST_1 Ligne un
ST_2 Ligne deux
The English DLL
ST_1 Line one
ST_2 Line two
FUNCTION ulong LoadLibraryA (string lpLibFileName) LIBRARY "kernel32.dll" FUNCTION boolean FreeLibrary (ulong hLibModule) LIBRARY "Kernel32.dll" FUNCTION int LoadStringA(ulong hInstance, uint UiD, ref string & lpBuffer, int nBufferMax) LIBRARY "user32.dll"
ulong lul_res
string ls_temp
constant uint ST_1 = 1
constant uint ST_2 = 2
lul_res = LoadLibraryA("resFr.dll")
ls_temp = Space(255)
LoadStringA(lul_res, ST_1, ls_temp, 255)
MessageBox("The French resource ST_1", ls_temp)
FreeLibrary(lul_res)
lul_res = LoadLibraryA("resEn.dll")
ls_temp = Space(255)
LoadStringA(lul_res, ST_2, ls_temp, 255)
MessageBox("The English resource ST_2", ls_temp)
FreeLibrary(lul_res)
ulong lul_res
string ls_temp
constant uint ST_1 = 1
lul_res = LoadLibraryA("resEn.dll")
ls_temp = Space(255)
LoadStringA(lul_res, ST_1, ls_temp, 255)
this.text = ls_temp
FreeLibrary(lul_res)
Written and compiled by Réal Gagnon ©1998-2005
[ home ]