Extraindo ícones
Esta dica mostra como extrair um ícone de um aplicativo e mostrá-lo no formulário. Para que o código funcione, adicione a unit ShellAPI na seção Uses. Coloque um objeto button em seu formulário e no seu evento onclick escreva o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
var
indice: word;
hicone: hicon;
begin
indice := 0;
hicone := extracticon(hinstance,'calc.exe', indice);
drawicon(form1.canvas.handle, 10, 10, hicone);
end;
O exemplo extrai o ícone da calculadora do Windows. Veja na figura abaixo, o programa sendo executado após o click no botão extrair.