Lea la versión de software GetFileVersionInfo

función GetBuildInfo (Nombre de archivo: string; var V1, V2, V3, V4: Word): Boolean;
var 
    VerInfoSize, VerValueSize, Chupete: DWORD; 
    VerInfo: Puntero; 
    VerValue: PVSFixedFileInfo; 
empezar 
    si  no FileExists (nombre del archivo) y luego 
    comienzan 
        resultado: = false; 
        salida; 
    terminar ; 
    VerInfoSize: = GetFileVersionInfoSize (PChar (filename), simulada);
    Si VerInfoSize = 0  entonces 
    comienzan 
        resultado: = false; 
        salida; 
    terminar ;
    GetMem (VerInfo, VerInfoSize); 
    si  no GetFileVersionInfo (PChar (filename), 0 , VerInfoSize, VerInfo) entonces 
    comenzar 
        resultado: = false; 
        salida; 
    terminar ; 
    VerQueryValue (VerInfo, ' \ ' , el puntero (VerValue), VerValueSize);
    con VerValue ^ no 
    comenzará 
        V1: = SHR dwFileVersionMS 16 ; 
        V2: = dwFileVersionMS y $ FFFF; 
        V3: = dwFileVersionLS shr 16 ; 
        V4:= DwFileVersionLS y $ FFFF;
    terminar ; 
    FreeMem (VerInfo, VerInfoSize); 
    como resultado: = verdadero;
terminar ;