Desculpa, foi a pressa. FUNC Generar_QR(cStr,cFile) LOCAL nResp LOCAL qrDLL qrDLL:=LoadLibrary("QRCodelib.Dll" ) nResp:=DllCall(qrDLL,DC_CALL_STD,"FastQRCode",cStr,cFile) FreeLibrary(qrDLL) RETURN (NIL)