function TfmMain.GetApplicationICON(path: string): TIcon;
var
  Icon     : TIcon;
  FileInfo : SHFILEINFO;
begin
  Icon:=TIcon.Create;

  try
    //Get the DisplayName
    SHGetFileInfo(PChar(path),0,FileInfo,SizeOf(FileInfo),SHGFI_DISPLAYNAME);
    // Get the TypeName
    SHGetFileInfo(PChar(path),0,FileInfo,SizeOf(FileInfo),SHGFI_TYPENAME);
    // Get the applicatiion ICON
    SHGetFileInfo(PChar(path),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON or SHGFI_LARGEICON);

    Icon.Handle:=FileInfo.hIcon;
    result:=Icon;

    //result:=TBitMap.Create;
    //result.Height:=Icon.Height;
    //result.Width:=Icon.Width;
    //result.Canvas.Draw(0,0,Icon);

    DestroyIcon(FileInfo.hIcon);
  finally
    Icon.Free;
  end;
end;