아래의 함수를 사용하시면 됩니다.

별것 아닐것 같다고 생각하다가 해보니 장난이 아니군요...쩝...



function ReadVersionInfo(sProgram: string; Major, Minor,

Release, Build : pWord) :Boolean;

var

Info: PVSFixedFileInfo;

InfoSize: Cardinal;

nHwnd: DWORD;

BufferSize: DWORD;

Buffer: Pointer;

begin

BufferSize := GetFileVersionInfoSize(pchar(sProgram),nHWnd);

Result := True;

if BufferSize <> 0 then

begin

GetMem( Buffer, BufferSize);

try

if GetFileVersionInfo(PChar(sProgram),nHWnd,BufferSize,Buffer) then

begin

if VerQueryValue(Buffer, '', Pointer(Info), InfoSize) then

begin

if Assigned(Major) then

begin

Major^ := HiWord(Info^.dwFileVersionMS);

end;

if Assigned(Minor) then

begin

Minor^ := LoWord(Info^.dwFileVersionMS);

end;

if Assigned(Release) then

begin

Release^ := HiWord(Info^.dwFileVersionLS);

end;

if Assigned(Build) then

begin

Build^ := LoWord(Info^.dwFileVersionLS);

end;

end else

begin

Result := False;

end;

end else

begin

Result := False;

end;

finally

FreeMem(Buffer, BufferSize);

end;

end else

begin

Result := False;

end;

end;





안명호 wrote:

> 델파이에서 프로젝트 옵션중 버전의 자동 증가가 있는데..

>

> 이걸 델파이 소스 안에서 알 아 볼수 있나요?

>

> 일일이 고쳐주지 않아도 알아서 표시 되도록....