Einzelnen Beitrag anzeigen

Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
525 Beiträge
 
FreePascal / Lazarus
 
#1

Icon / Dateiversion auslesen bei 64-Bit anders?

  Alt 12. Feb 2019, 15:14
Delphi-Version: 10.2 Tokyo
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 specificationthen
        ToolI.Hint := GetFileVersion(ToolE.Text);
    finally
      ToolI.show;
      icon.Free;
    end;
Hat sich was geändert?
Der Weg ist das Ziel aber man sollte auf dem Weg niemals das Ziel aus den Augen verlieren.
  Mit Zitat antworten Zitat