Assembly Informationen auslesen

**skyware**

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:

markieren

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

Assembly Informationen auslesen

Assembly Informationen auslesen

Forumregeln