ApiLink ('odma32.dll', 'INT ODMRegisterApp(LPVOID FAR *pOdmHandle, DWORD version, LPSTR lpszAppld, DWORD dwEnvData, LPVoid pReserved)') || die "blick";
$version = 100;
$Appld = "PerlODMA";
$odmregisterrc = 0;
$odmselectrc = 0;
$flags = 0;
$odmhandle = AllocMemory( 255 );
$docid = AllocMemory( 255 );
$odmregisterrc = ODMRegisterApp($odmhandle,$version,$Appld,$hwnd,undef);
ApiLink ('odma32.dll', 'INT ODMSelectDoc(LPVOID OdmHandle, LPSTR lpszDocid, LPDWORD pdwFlags)') || die "blick2";
$odmselectrc = ODMSelectDoc($odmhandle,$docid,$flags);

##</code><code>##

ODMRegisterApp
	Input parameters:
	version=100(64)
	lpszAppId=PerlODMA;
	dwEnvData=2754366(2a073e)
	Output parameters:
	odmHandle=33949616(20607b0)
	Return value=0(0)
ODMSelectDoc
	Input parameters:
	odmHandle=30705996(1d4894c)

##</code><code>##

#ODMStatus ODMRegisterApp(ODMHANDLE FAR *pOdmHandle WOrd version LPSTR lpszAppld, DWORD dwEnvData, LPVoid pReserved)

#ODMStatus ODMSelectDoc(ODMHANDLE odmhandle,LPSTR lpszDocid, LPDWORD pdwFlags)