(bind-type FILETIME <DWORD,DWORD>)
(bind-type WIN32_FIND_DATA <DWORD,FILETIME,FILETIME,FILETIME,DWORD,DWORD,DWORD,DWORD,|260,i8|,|14,i8|> (constructor? . #f) (printer? . #f))
(bind-alias LPWIN32_FIND_DATA WIN32_FIND_DATA*)
(bind-func get_file_name (lambda (dat:WIN32_FIND_DATA*) (String (cast (tref-ptr dat 8) i8*))))