>some activex controls using imagelist by means of HIMAGELIST, or using the SHGetFileInfo function in Shell32, well , someone know how i can obtain this hImageList or the sintax for SHGetFileINfo syntax for foxpro?
>
>the function in VB is :
>
>Private Type SHFILEINFO
> hIcon As Long
> iIcon As Long
> dwAttributes As Long
> szDisplayName As String * 260
> szTypeName As String * 80
>End Type
>
This is a structure, which could be simulated with a VFP string, but you'd have to parse by hand. You might want to check if Christof Lange's STRUCT class implements this structure, while it's not complex, it would require a bit of work to construct.
>Private Declare Function SHGetFileInfo Lib "shell32" Alias "SHGetFileInfoA" _
> (ByVal pszPath As Long, _
> ByVal dwFileAttributes As Long, _
> psfi As SHFILEINFO, _
> ByVal cbFileInfo As Long, _
> ByVal uFlags As Long) As Long
>
DECLARE INTEGER SHGetFileInfo IN SHELL32 INTEGER, INTEGER, STRING @, INTEGER, INTEGER
Depending on how the structure is constructed, you might need to declare it as an integer and pass a 32 bit popinter, but that's a function of how you implement the SHFILEINFO structure.