왕초보 께서 말씀하시기를...

> GetFileVersionInfo함수 예제 좀 올려주세요...



왕초보님 안녕하세요?

여러 국내외 델파이 사이트에서 팁을 검색하는

요령을 기르는 것도 자신을 발전시키는 큰 힘이 된답니다.



아래 내용은 파일의 버젼을 읽어오는 팁입니다.

참조하시고 즐거운 프로그래밍 되시길 바랍니다~



Function GetBlissFileVersion(FName : String) : String;

const

InfoNum = 10;

InfoStr : array [1..InfoNum] of String =

('CompanyName', 'FileDescription', 'FileVersion', 'InternalName',

'LegalCopyright', 'LegalTradeMarks', 'OriginalFilename',

'ProductName', 'ProductVersion', 'Comments');

var

n, i : Integer;

Len : Cardinal;

Buf : PChar;

Value : PChar;

Date, S : String;

mjv, mnv, rev, build : Integer;

mvs : String;



BEGIN

n := GetFileVersionInfoSize(PChar(FName),Len);

Date := GetFileDateString(FName);

If n > 0 then

Begin

Buf := AllocMem(n);

GetFileVersionInfo(PChar(FName),0,n,Buf);

If

VerQueryValue(Buf,PChar('StringFileInfo