ソフトウェアのバージョンを読んでGetFileVersionInfo

機能 GetBuildInfo（ファイル名：文字列; VAR V1、V2、V3、V4：ワード）：ブール;
VAR 
    VerInfoSize、VerValueSize、ダミー：DWORD; 
    VerInfo：ポインタ; 
    VerValue：PVSFixedFileInfo。
開始し
    ている場合 ではない FILEEXISTS（ファイル名）が、その後
    開始
        結果： = 偽の; 
        出口; 
    エンド; 
    VerInfoSize： = GetFileVersionInfoSize（PChar型（ファイル名）、ダミー）。
    場合 VerInfoSize = 0が 、その後
    始まる
        結果を： = falseは、
        出口; 
    エンド;
    GetMem（VerInfo、VerInfoSize）。
    なら ない GetFileVersionInfo（PChar型（ファイル名）、0、VerInfoSize、VerInfo）は、次いで
    開始
        結果： = 偽と、
        出口; 
    エンド; 
    VerQueryValue（VerInfo、' \ ' 、ポインタ（VerValue）、VerValueSize）。
    VerValue ^が行う始まる
        V1： = dwFileVersionMS SHR 16を、
        V2： = dwFileVersionMS と$ FFFF。
        V3： = dwFileVersionLS SHR 16 。
        V4：
    = dwFileVersionLS と$ FFFF。
    エンド; 
    FreeMemの（VerInfo、VerInfoSize）。
    結果： = はtrue。
エンド ;