function GetFileVersion(FilePath: String; VerType: Integer): Integer; var InfoSize: Integer; dwH: DWORD; Buf: PChar; pFileInfo: PVsFixedFileInfo; Len: UINT; begin Result := 0; // 파일존재여부 검사 if not FileExists(FilePath) then Exit; InfoSize := GetFileVersionInfoSize(PChar(FilePath), dwH); if InfoSize = 0 then Exit; GetMem(Buf, InfoSize); if GetFileVersionInfo(PChar(FilePath), 0, InfoSize, Buf) then ..