Como mostrar vistas miniatura en un listview

[JoAnCa]

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