Delphi 10.2 Tokyo Starter

[Turbo78]

Es gelingt mir nicht die VersionInfo einzulesen.
Ich habe mit beiden Infostrings ausprobiert, aber es liegt anscheinlich an was anderen.
Hat jemand eine Idee, warum die Funktion in Delphi 10 nicht funktioniert?

Danke in Voraus,
Toni

Diese Prozedur funktioniert unter Delphi 7:

Delphi-Quellcode:

  Procedure SetupProgramVersionData;

    const
      InfoNum = 10;
      InfoStr: array[1..InfoNum] of string =
(* *)
        ('CompanyName', 'FileDescription', 'FileVersion',
         'InternalName', 'LegalCopyright', 'LegalTradeMarks',
         'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
(*
        ('Firmenname', 'Beschreibung', 'Dateiversion',
         'InternerName', 'Copyright', 'Warenzeichen',
         'Originaldateiname', 'Produktname', 'Produktversion', 'Kommentare');
*)
    var
      S: string;
      n, Len, i: DWORD;
      Buf: PChar;
      Value: PChar;
      ValueStr: array[1..InfoNum] of string;
    begin // SetupProgramVersionData
      S := Application.ExeName;
      n := GetFileVersionInfoSize(PChar(S), n);
      if n > 0 then begin
        Buf := AllocMem(n);
        GetFileVersionInfo(PChar(S), 0, n, Buf);

        for i := 1 to InfoNum do
          if VerQueryValue(Buf, PChar('StringFileInfo\040704E4\' + InfoStr[i]), Pointer(Value), Len) then begin
            ValueStr[i] := Value;
            end;
        FreeMem(Buf, n);

    end; // SetupProgramVersionData