取得程式版本資訊

bestlong

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;

複製代碼