Pues usando la funcion
Obtener cualquier thumbnail de la Shell de cHackAll, combinada con el ejemplo de Neftali
Crear componentes en un TScrollBox (runtime) me funciona bien si pongo directamente la ruta del archivo y el archivo:
Código Delphi
[-]
im.Picture.Assign(GetThumbnail('D:\Animados', 'Mickey Mouse.mpg', 96, 96));
Pero si le paso el parámetro en una variable no me funciona
Poniendo:
Código Delphi
[-]
Ruta:='D:\Animados';
Arch:='Mickey Mouse.mpg';
im.Picture.Assign(GetThumbnail(PWideChar(ruta), PWideChar(arch), 96, 96));
No me da error, pero los TImagen salen en blanco
A que se debera esto?
Si pongo PChar me da error de incomptibilidad de tipos