bestlong 怕失憶論壇

標題: 取得程式版本資訊 [打印本頁]
作者: bestlong    時間: 2007-11-10 16:09     標題: 取得程式版本資訊

  1. function GetVersion: string;
  2. var
  3.   VerInfoSize: DWORD;
  4.   VerInfo: Pointer;
  5.   VerValueSize: DWORD;
  6.   VerValue: PVSFixedFileInfo;
  7.   Dummy: DWORD;
  8. begin
  9.   VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  10.   GetMem(VerInfo, VerInfoSize);
  11.   GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  12.   VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  13.   with VerValue^ do
  14.   begin
  15.     Result := IntToStr(dwFileVersionMS shr 16);
  16.     Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
  17.     Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
  18.     Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);
  19.   end;
  20.   FreeMem(VerInfo, VerInfoSize);
  21. end;
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5