Discussion :

[Folkeu08]

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

[AbeBar27]

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.

[Bernard B]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Dans ta Spalsh_Unit.pas je vois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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