Récupération de la version d'un executable se trouvant sur un serveur

**babibello** · 29/06/2009, 11h25

Bonjour à tous,

tout est dit, je n'arrive pas à récupérer la version d'un .exe qui se trouve sur un serveur.
j'ai essayé avec cette fonction :
http://www.developpez.net/forums/d52...on-executable/
, en ajoutant un paramètre "chemin",
mais je tombe à chaque fois sur "Les informations de version de sont pas inclues"
si quelqu'un peut m'aider?
Merci

**Aka Guymelef** · 29/06/2009, 11h31

Bonjour et bienvenue sur les forums de Développez.com

Malheureusement je crois que la messe est dite : "Les informations de version de sont pas inclues", il n'est pas obligatoire que ces informations soient incluses lors de la génération de l'exécutable, peut-être que celui que vous avez pour cible est dans ce cas ?

**babibello** · 29/06/2009, 11h49

merci d'avoir répondu aussi rapidement

En fait , le code que j'utilise est le suivant :
http://delphi.developpez.com/faq/?pa...icationversion
(je me suis un peu précipité

)

J'ai bien ajouté les propriétés dans le projet, et pourtant on me renvoie "les infos...non incluses"

Une idée?

ci dessous, le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
function ApplicationVersion(chemin:string): String;
var
  VerInfoSize, VerValueSize, Dummy: DWord;
  VerInfo: Pointer;
  VerValue: PVSFixedFileInfo;
begin
  //VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
   VerInfoSize := GetFileVersionInfoSize(PChar(chemin), Dummy);
  {Deux solutions : }
  if VerInfoSize <> 0 then
  {- Les info de version sont inclues }
  begin
    {On alloue de la mémoire pour un pointeur sur les info de version : }
    GetMem(VerInfo, VerInfoSize);
    {On récupère ces informations : }
    GetFileVersionInfo(PChar(chemin), 0, VerInfoSize, VerInfo);
    VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
    {On traite les informations ainsi récupérées : }
    with VerValue^ do
    begin
      Result := IntTostr(dwFileVersionMS shr 16);
      Result := Result + '.' + IntTostr(dwFileVersionMS and $FFFF);
      Result := Result + '.' + IntTostr(dwFileVersionLS shr 16);
      Result := Result + '.' + IntTostr(dwFileVersionLS and $FFFF);
    end;
 
    {On libère la place précédemment allouée : }
    FreeMem(VerInfo, VerInfoSize);
  end
 
  else
    {- Les infos de version ne sont pas inclues }
    {On déclenche une exception dans le programme : }
    raise EAccessViolation.Create('Les informations de version de sont pas inclues');
end;