GetVersionCheck

var アイオン RMT
Dlen:Dword; AION RMT
Dsize:Dword;
PDatA:pointer;
block:^VS_FIXEDFILEINFO ;
begin
DLen:=GetFileVersioninfoSize(Pchar(filedir),Dsize);
if DLen <>0 then
begin
GetMem(Pdata,Dlen);
try
if GetFileVersionInfo(pchar(FileDir),Dsize,Dlen,Pdata) then
begin
Block:=nil;
VerQueryValue(pdata,'\',pointer(Block),dsize);
if Block <>nil then
begin
Result:= Trim(Format('%d.%d.%d.%d',[Block^.dwFileVersionMS shr 16,
block^.dwFileVersionMS and $0000ffff,
block^.dwFileVersionLS shr 16,
block^.dwFileVersionLS and $0000ffff]));

end;
end;
FINALLY
freemem(pdata,DLEN);
end;
end;