How to extract icons from a program or DLL

Problem/Question/Abstract:

How can I extract an icon from another executable or DLL through code?

Answer:

Use the Windows API function ExtractIcon(), passing it the instance handle of your application, the path name of the application you wish to extract the icon from, and the number of the icon you wish to extract:

var
  TheIcon: TIcon;
begin
  TheIcon := TIcon.Create;
  TheIcon.Handle := ExtractIcon(hInstance, 'C:\PATH\SOMEPROG.EXE', 0);
  {Do something with the icon}
  TheIcon.Free;
end;