Здравствуйте, mak-red, Вы писали:

MR>Как программно считать и перезаписать версию файла exe и mde?
читаем так...

function GetFileVersionExt(FileName: string; var Major1, Major2,
  Minor1, Minor2: Integer): boolean;
var
  Info: Pointer;
  InfoSize: DWORD;
  FileInfo: PVSFixedFileInfo;
  FileInfoSize: DWORD;
  Tmp: DWORD;
begin
  Result:=false;
  InfoSize := GetFileVersionInfoSize(PChar(FileName), Tmp);
  if InfoSize = 0 then Exit;
  GetMem(Info,InfoSize);
  try
    GetFileVersionInfo(PChar(FileName), 0, InfoSize, Info);
    VerQueryValue(Info, '\', Pointer(FileInfo), FileInfoSize);
    Major1 := FileInfo.dwFileVersionMS shr 16;
    Major2 := FileInfo.dwFileVersionMS and $FFFF;
    Minor1 := FileInfo.dwFileVersionLS shr 16;
    Minor2 := FileInfo.dwFileVersionLS and $FFFF;
  finally
    FreeMem(Info, FileInfoSize);
    Result:=true;
  end;
end;

перезапись — Project-Option =)