Modificación del Truco 467

[[cHackAll]]

Código Delphi [-]
..., Windows, ...

[capo979]

Cuando pongo el siguiente código

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Picture.Assign(GetThumbnail('c:\windows\web\wallpaper', 'ascent.jpg', 96, 96));
end;

En Image1 no aparece nada no se ve nada

que puede ser

Saludos

[[cHackAll]]

Intentando escribir la unidad Viewer en BCB6, obtuve los errores E2268, E2015 y W8022. Aparte de ello no encontré por ningún lado la librería necesaria con las APIs importadas desde GDI+ para que Viewer funcione.

Empezado por vicmac3009

Que tal:

vi un post, http://chackall.clubdelphi.com/Viewer.pas, y quisiera saber si fuera posible que me explicaras o pudieras ayudar a traducir el código a c++...

Descarga el archivo adjunto.

Considerando que BCB6 es incapaz de trabajar con GDI+ sin tener que modificar sus cabezales; he importado a Viewer.pas en un proyecto de BCB y he añadido la librería faltante con las APIs de GDI+.

Nota; vicmac3009 siempre que tengas alguna duda escríbela en el hilo/subforo correspondiente para que cualquier miembro te ayude y para que la respuesta ayude a otros miembros.

Saludos