Extraire la grande et la petite icone d'un fichier

//extraire les petites et grandes icone d'un exe, dll, ...

procedure TForm1.Button1Click(Sender: TObject);
var
LargeIcon: HIcon;
SmallIcon: HIcon;
IconCount: Integer;
i: Integer;
FileName: PChar;
begin
// dessiner la grande et la petite icone sur le Cancas de TForm
FileName := 'C:WINDOWS2SYSTEMuser.exe';
IconCount := ExtractIconEx(FileName, -1, LargeIcon, SmallIcon, 0);
for i := 0 to Pred(IconCount) do
begin
ExtractIconEx(FileName, i, LargeIcon, SmallIcon, 1);
DrawIcon(Canvas.Handle, 5 + i * 36, 5, LargeIcon);
DrawIconEx(Canvas.Handle, 5 + i * 36, 50, SmallIcon,
GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), 0, 0, DI_NORMAL);
end;
end;