.code

ExportLanguage proc uses esi edi,hMem:DWORD

	invoke GlobalAlloc,GMEM_FIXED or GMEM_ZEROINIT,64*1024
	mov		edi,eax
	invoke GlobalLock,edi
	push	edi
	mov		esi,hMem
	invoke SaveStr,edi,offset szLANGUAGE
	add		edi,eax
	mov		al,' '
	stosb
	mov		eax,[esi].LANGUAGEMEM.lang
	invoke SaveVal,eax,TRUE
	mov		eax,[esi].LANGUAGEMEM.sublang
	invoke SaveVal,eax,FALSE
	mov		al,0Dh
	stosb
	mov		al,0Ah
	stosb
	mov		byte ptr [edi],0
	pop		eax
	ret

ExportLanguage endp