Programmname und Version ermitteln

[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;