Versionsinfo auslesen?

[s.h.a.r.k]

zu Luckies Code:

Delphi-Quellcode:

function GetFileInfo(
  var aInternalName, aFileVersion: String; FileName: AnsiString
): Boolean;

Also, ich hab mir die Methode nicht angeschaut, aber folgendes lässt sich sagen. Es sind zwei var-Paramter vorhanden. Das ist die eigentlich Ausgabe, d.h. aInternalName und aFileVersion werden zurückgegeben. Des weiteren musst du den Dateinamen (inkl. Pfad denke ich, in so fern die Datei in einem anderen Verzeichnis befindet als im Ausführungsverzeichnis) der Datei übergeben, von welcher du die Informationen haben willst. Als Rückgabe bekommst du einen Wert vom Typ Boolean, also, ob die Anfrage überhaupt funktioniert hat oder nicht.

Ein Aufruf kann wie folgt aussehen:

Delphi-Quellcode:

// in deiner Methode...
var
  internal_name : String;
  version       : String;
begin
  // ...
  // Dein Code
  // ...

  // Hier werden internal_name und version überschrieben,
  // eben mit den Werten die aus der Datei kommen
  if (not GetFileInfo(internal_name, version, Application.ExeName)) then
  begin
    // Version und InternalName konnten NICHT ausgelesen werden
  end
  else 
    // Anzeige der Version
    showMessage('Programmversion: ' + version);

  // ...
  // Dein Code
  // ...
end;

Wenn du das ganze in eine Klasse eingearbeitet haben willst, dann kann ich sie dir gerne zur Verfügung stellen. Schickst mir einfach eine PN, dann stelle ich sie hier online. Dort werden auch noch weit mehr Informationen ausgelesen.

Mit freundlichen Grüßen
der Hai