ohh!!
Perdona, fallo mío.
Me faltaba este trozo de código :-) :
Código Delphi
[-]
type
IExtractImage = interface ['{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}'] function GetLocation(pszPathBuffer: LPWSTR; cchMax: DWORD; var pdwPriority: DWORD; const prgSize: SIZE; dwRecClrDepth: DWORD; var pdwFlags: DWORD): HRESULT; stdcall;
function Extract(var phBmpImage: HBITMAP): HRESULT; stdcall;
end;
Te he preparado una demo, que puedes descargarla aquí:
www.applinet.es/descargas/thumbnail_demo.zip
¿Puedes probarlo con añadiendo este código?
Cuéntame como te fue.
Un saludo.
Manuel.