有没有在编译时取编译时间的函数?编译后就替换成常量了.(用来作版本控制)

Question

如题!

Answer 1

用自动化Build 工具吧，然后设置它自动改版本号。你这个办法虽然精巧，毕竟有点旁门左道的意思。

Answer 2

form1.caption :=formatdatetime('yyyymmddhhmmss',now);

Answer 3

project->Options->Version Info->Include version information in project
就可以向你的Exe文件中编译版本信息
//得到文件版本
function GetFileVerInfo(FileName: string): string;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  Dummy: DWORD;
  VerValue: PVSFixedFileInfo;
begin
  Result := '';
  VerInfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
  if VerInfoSize = 0 then Exit;
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  FreeMem(VerInfo);
  with VerValue^ do
    Result := IntToStr(dwFileVersionMS shr 16) + '.' +
              IntToStr(dwFileVersionMS and $FFFF) + '.' +
              IntToStr(dwFileVersionLS shr 16) + '.' +
              IntToStr(dwFileVersionLS and $FFFF);
end;