Wie kann ich die Versions-Info aus der Delphi-IDE in meinem Programm nutzen?


function GetVersionString: string;
var Filename: string;
    Size, Size2: integer;
    Buffer, Buffer2: pointer;
begin
  Result:= '?';
  Filename:= Application.ExeEame;
  Size := GetFileVersionInfoSize(pchar(Filename), integer(Buffer));
  GetMem(Buffer,Size);
  try
    if GetFileVersionInfo(pchar(Filename), 0, Size, Buffer) then begin
      if VerQueryValue(Buffer, '\', Buffer2, Size2) then begin
        with TVSFixedFileInfo(Buffer2^) do begin
          Result := inttostr(pword(integer(@dwFileVersionMS)+2)^)+'.'+
                    inttostr(pword(integer(@dwFileVersionMS)+0)^)+'.'+
                    inttostr(pword(integer(@dwFileVersionLS)+2)^)+' Buildnr: '+
                    inttostr(pword(integer(@dwFileVersionLS)+0)^);
        end;
      end;
    end;
  finally
    Dispose(Buffer);
  end;
end;
Delphi 1 Delphi 2 Delphi 3 Delphi 4
nicht getestet Version nicht betroffen getestet

siehe auch:


Delphi FAQ