[M.A.D.M.A.N.]

Код:

uses ShellApi;
...
var Pch: array[0..256] of Char;
begin
  StrPCopy(Pch,FileNameHere);
  imgIcon.Picture.Icon.Handle:=ExtractAssociatedIcon(hInstance,Pch,IconINdex);
end;