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?