Delphi/꿀팁
실행파일의 버전정보 가져오기
파일 버전정보를 읽어오는 함수function GetFileVersion(sFilePath: string): string;var Size, Size2: DWord; Pt, Pt2: Pointer;begin Result := ''; Size := GetFileVersionInfoSize(pChar(sFilePath), Size2); if Size > 0 then begin GetMem(Pt, Size); try GetFileVersionInfo(pChar(sFilePath), 0, Size, Pt); VerQueryValue (Pt, '\', Pt2, Size2); with TVSFixedFileInfo(Pt2^) do begin Result := Format('%d.%d.%d.%d', [HiWord(dwF..
