Курсовая работа1 / UCcVersionInfo

{
  C-like language compiler v0.1.0.485

  12 november 2007

  Copyright (C) 2006, 2007 Igor Krooshch
  rheo.ikro@gmail.com

  This program is free software; you can redistribute it and/or
  modify it under the terms of the GNU Lesser General Public
  License as published by the Free Software Foundation; either
  version 2.1 of the License, or (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  Lesser General Public License for more details.

  You should have received a copy of the GNU Lesser General Public
  License along with this library; if not, write to the Free Software
  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
}

unit UCcVersionInfo;

interface

uses
  SysUtils, Classes, Windows;

  procedure FileVersion(const AFileName: string; var LS, MS: cardinal);
  function GetVersionStr: string;

implementation

procedure FileVersion(const AFileName: string; var LS, MS: cardinal);
var
  FileName: string;
  InfoSize, Wnd: DWORD;
  VerBuf: Pointer;
  FI: PVSFixedFileInfo;
  VerSize: DWORD;
begin
  LS := 0;
  MS := 0;
  // GetFileVersionInfo modifies the filename parameter data while parsing.
  // Copy the string const into a local variable to create a writeable copy.
  FileName := AFileName;
  UniqueString(FileName);
  InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
  if InfoSize <> 0 then
  begin
    GetMem(VerBuf, InfoSize);
    try
      if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then
        if VerQueryValue(VerBuf, '\', Pointer(FI), VerSize) then begin
          MS := FI.dwFileVersionMS;
          LS := FI.dwFileVersionLS;
        end;
    finally
      FreeMem(VerBuf);
    end;
  end;
end;


function GetVersionStr: string;
var
  ls, ms: Cardinal;
  ls1, ls2, ms2: integer;
begin
  FileVersion(ParamStr(0), ls, ms);
  ls1 := ls shr 16;
  ls2 := (ls shl 16) shr 16;
  ms2 := (ms shl 16) shr 16;
  Result := Format('%d.%d (build %d)', [ls1, ms2, ls2]);
end;


end.