[D11.1] Récupérer les informations de l'exécutable

Hello La communauté,
Je reviens le temps de la version démo de Delphi 11.1 à cette version depuis l'abandon de Delphi à sa version XE4 pour Lazarus.

J'essaye dans une SplashForm d'y afficher dans 2 labels différents :
* le ProductName de l'exe,
* la Version de l'exe.

Je dispose d'un add-on d'unités qui font le boulot d'aller décoder les infos dans l'exécutable compilé. J'ai trouvé le source ici :
http://lafin.de/software.html#verinfo

J'ai déjà testé le source sous Lazarus et ça marche nickel.
Sous Delphi, je n'arrive pas a faire reconnaitre les 2 fonctions "ProductName" et "FileVersion".

Je mets mon source en PJ. J'ai du perdre la main à Delphi cette fois !
Tout se passe dans la Splash_Form. Ca doit pas être grand chose mais ça m'échappe.

Merci

Ta pièce jointe n'est pas valide, je n'ai pas pu regarder. Ci joint les unités que j'utilise depuis... Delphi5 pour charger ces informations, fonctionnent toujours bien sur Delphi 10.4
Créer un TFileVersionInfosReader puis utiliser ses propriétés.

Dans l'unité Verinfo.pas de ta pièce jointe, je vois 2 variables qui semblent être celles qui t'intéressent :

Code:

---

1 2	product_name: String; // Productname product_version: String; // Productversion

---

Dans ta Spalsh_Unit.pas je vois : :calim2:

Code:

---

1 2	Product_Label.Caption := ProductNameAsString(); // Release_Label.Caption := 'Release ' + FileVersionAsString();

---

Pour être cohérent et pouvoir compiler j'écrirais :

Code:

---

1 2	Product_Label.Caption := Product_Name; Release_Label.Caption := 'Release ' + product_version;

---