Hallo zusammen,
ich beschäftige mich gerade mit dem auslesen von Assembly Informationen (Version, Copyright etc.).
Dabei bin ich auf folgenden Link gestossen:
http://www.delphipraxis.net/internal...+getattributes
Ich habe versucht dies zu adaptieren, leider noch ohne Erfolg
Im Projekt1.dpr setze ich die Version mit folgendem Code:
[assembly: AssemblyVersion('1.0.0.1')]
Das Auslesen versuche ich anschliessend mit folgendem Code:
Delphi-Quellcode:
procedure TWinForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
xAttributes : AttributeCollection;
xAttributeVersion : AssemblyVersionAttribute;
begin
xAttributes := TypeDescriptor.GetAttributes(Self);
xAttributeVersion := AssemblyVersionAttribute(xAttributes[TypeOf(AssemblyVersionAttribute)]);
if (xAttributeVersion <> nil) then
Text := 'Version: ' + xAttributeVersion.Version;
end;
Hat mir hier jemand einen Tip wie es korrekt gemacht wird?
Gruss und danke im voraus