Icon / Dateiversion auslesen bei 64-Bit anders?

[Moombas]

Moin zusammen,

ich habe meine Programme auf 64Bit umgestellt, nun lassen sich die Icons und Dateiversion (in den Projektoptionen -> Anwendung -> Symbole bzw. Versionsinformationen festgelegt) nicht mehr "auslesen":

Delphi-Quellcode:

//ToolI ist ein TImage

    Icon := TIcon.Create;
    try
      ...
      Icon.Handle:=ExtractAssociatedIcon(hInstance, PChar(ToolE.Text), Filter);
      ToolI.Picture.Icon := icon;
      if GetFileVersion(ToolE.Text) <> 'No version specification' then
        ToolI.Hint := GetFileVersion(ToolE.Text);
    finally
      ToolI.show;
      icon.Free;
    end;

Hat sich was geändert?

[Moombas]

Hat sich erledigt....

Wenn man zu viel auf einmal ändert... naja es funktioniert jedenfalls.