Извлечь основную иконку EXE-файла

procedure
 TForm1.Button1Click(Sender: TObject);
 var

   Icon: TIcon;
   FileInfo: SHFILEINFO;
 begin

   Icon := TIcon.Create;
   try

     // Get the Icon 
    SHGetFileInfo(PChar('Filename.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
     icon.Handle := FileInfo.hIcon;

     DestroyIcon(FileInfo.hIcon);
     // Save the Icon to a file: 
    icon.SaveToFile('IconFromExe.ico');
     // Set the Icon as Application Icon (temporary) 
    Application.Icon := icon;

   finally

     Icon.Free;
   end
;
 end
;

Другое по теме:

• Как извлечь иконку из файлов ICO
• Создание ICO из BMP
• Анимированная иконка приложения