Delphi XE3：复杂的预构建事件的问题

>将我们的所有调用组合成一个单独的(Ruby)脚本PreBuild.rb
>将此Ruby脚本编译成独立的可执行文件(因为并非所有开发人员都安装了Ruby)
>在Delphi中使用单个预构建事件

如果有人感兴趣，这里是我们的PreBuild事件：

PreBuild "<path_to_SVN_working_copy>" "VersionInfo.rc.in" $(OUTPUTNAME).res

这里是脚本PreBuild.rb：

#!/usr/bin/env ruby

  require 'tempfile'

  if ARGV.length < 3
    puts "usage: #{$0} <path> <infile> <outfile>"
    exit 1
  end
  # svnversion.exe is part of the SVN command line client
  svnversion = "svnversion.exe"
  path,infile,outfile = ARGV[0],ARGV[1],ARGV[2]
  # call svnversion executable,storing its output in rev
  rev_str = `#{svnversion} "#{path}"`.chop

  # extract the first number (get rid of M flag for modified source)
  rev = /^[0-9]+/.match(rev_str)[0]

  # get current date
  date = Time.new

  # remove old output file (ignore errors,e.g. if file didn't exist)
  begin
    File.delete(outfile)
  rescue
  end

  input = File.new(infile,"r")
  tmpname = "VersionInfo.rc"
  tmp = File.new(tmpname,"w+")
  input.each do |line|
    # replace $WCREV$ with revision from svnversion call
    outline = line.gsub(/$WCREV$/,rev) 
    # replace $WCDATE$ with current date + time
    outline = outline.gsub(/$WCDATE$/,date.to_s)
    # write modified line to output file
    tmp.puts(outline)
  end
  input.close
  tmp.close

  puts "SubWCRev: Revision: #{rev},date: #{date},written to #{tmpname}"

  call = "brcc32 -fo#{outfile} #{tmpname}"
  puts call
  system(call)