Programmname und Version ermitteln

[Archer]

Hallo!

folgendes Problemchen:

Ich möchte gerne zur Laufzeit den Namen des laufenden Programmes und die Versionsnummer ermitteln, um diese Informationen im Header einer generierten .AWL Datei zu platzieren.

Geht das irgendwie ?

Gruß, Archer

[Archer]

Also, den Namen bekomme ich mittlerweile über
Programmname:=application.Title; aber hat noch jemand einen Tip für die Versionsnummer?

Gruß, Archer

[Matze]

Hallo,

schau dir mal die Demo hier im Anhang an, da müsste solch eine Funktion implementiert sein.

Nachtrag:

Auszug:

Delphi-Quellcode:

// =============================================================================
// FUNCTION: GetVersion
// DESCRIPTION:
//   Reads the current version of the application
// RESULT: Version (String)
// =============================================================================
function GetVersion: string;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  VerInfo := nil;
  try
    VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
    try
      GetMem(VerInfo, VerInfoSize);
      GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
      VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
      with VerValue^ do
      begin
        Result := Format('%d.%d.%d.%d',
          [dwFileVersionMS shr 16,
          dwFileVersionMS and $FFFF,
          dwFileVersionLS shr 16,
          dwFileVersionLS and $FFFF]);
      end;
    finally
      FreeMem(VerInfo, VerInfoSize);
    end;
  except
    Result:= #$31#$2E#$30; // 1.0
  end;
end;

[marabu]

Application.Title kann während der Entwurfs- oder Laufzeit geändert werden. Den Namen der gerade ausgeführten Datei würde ich eher so ermitteln:

appName := ChangeFileExt(ExtractFileName(ParamStr(0)), ''); Grüße vom marabu

[Archer]

Zunächst mal vielen Dank für die Tipps!

@Matze:

Die von Dir beschriebene function habe ich mal so wie sie ist ins Programm reingebastelt.
Allerdings bekomme ich bei deren Aufruf im Programm einen Fehler (Zugriffsverletzung blablabla in Version.dll).
Gehe ich mit Step Over ('F8') drüber weg, schreibt er mir allerdings die korrekte Versionsnummer in mein file.
wie kriege ich den Fehler weg???


Danke, Archer

[Luckie]

Du musst auch Versionsinformationen im Image haben. Projekt -> Optionen da irgendwo kannst du das einstelln.

[FriFra]

Zitat von marabu:

Application.Title kann während der Entwurfs- oder Laufzeit geändert werden. Den Namen der gerade ausgeführten Datei würde ich eher so ermitteln:

appName := ChangeFileExt(ExtractFileName(ParamStr(0)), ''); Grüße vom marabu

Also das halte ich für ungeeignet. Was hat der Name der Programmdatei mit dem Programmnamen zu tun? Ich halte mich z.b. nach wie vor an die 8:3 Namenskonvention für Dateinamen (bin ich noch von MS-Dos und Win3.x gewöhnt), da wird dann schnell aus der Lohnbuchhaltung eine lohnbuch.exe oder noch besser lb.exe

[Archer]

Wenn man eine Versionsnummer anzeigen will, sollte man auch eine haben!!!

@ Luckie:
kaum macht mans richtig, gehts!
Ich danke Dir!

@all helpers:

Vielen Dank für die Hilfe, das wars!

Gruß, Archer