$PBExportHeader$n_cst_dll.sru
forward
global type n_cst_dll from nonvisualobject
end type
end forward

global type n_cst_dll from nonvisualobject autoinstantiate
end type

type prototypes
function ulong GetFileVersionInfoSize(ref string as_Dll, ref ulong zero)  alias for "GetFileVersionInfoSizeA" Library "version.dll"
function boolean GetFileVersionInfo(ref string as_Dll, ref ulong ignore, ulong ai_len, ref string as_buf)  alias for "GetFileVersionInfoA" Library "version.dll"
function boolean VerQueryValue(ref string as_buf, ref string as_valuename, ref ulong ai_valueaddr, ref ulong ai_len)  alias for "VerQueryValueA" Library "version.dll"


end prototypes

forward prototypes
public function string of_getversion (readonly string as_dll)
end prototypes

public function string of_getversion (readonly string as_dll);
/**************************************************************************
* of_GetVersion returns version of as_dll or "!" if any error occures     *
* (C) Anatoly Moskovsky  avm@sqlbatch.com                                 *
**************************************************************************/

String ls_buf, ls_dll, ls_valname, ls_value
ls_dll = as_dll 
ulong li_bufsize, li_zero, li_addr, li_len 
li_bufsize = GetFileVersionInfoSize(ls_dll, li_zero)
If li_bufsize =  0  Then
	Return "!"
End IF
ls_buf = space(li_bufsize)

ls_valname = "\StringFileInfo\040904E4\FileVersion"
If Not GetFileVersionInfo(ls_dll, li_zero, li_bufsize, ls_buf) Then
	Return "!"
End IF

If Not VerQueryValue(ls_buf, ls_valname, li_addr, li_len) Then
	Return "!"
End IF
ls_value = String(li_addr, "address")
Return ls_value

end function

on n_cst_dll.create
TriggerEvent( this, "constructor" )
end on

on n_cst_dll.destroy
TriggerEvent( this, "destructor" )
end on