نکات برنامه نویسی در دلفی

[مهران موسوی]

خواندن Version Info یک فایل

function GetVersion: string;

var

  VerInfoSize: DWORD;

  VerInfo: Pointer;

  VerValueSize: DWORD;

  VerValue: PVSFixedFileInfo;

  Dummy: DWORD;

begin

  Result := '';

  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);

  if VerInfoSize = 0 then Exit;

  GetMem(VerInfo, VerInfoSize);

  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);

  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);

  with VerValue^ do

  begin

    Result := IntToStr(dwFileVersionMS shr 16);

    Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);

    Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);

    Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);

  end;

  FreeMem(VerInfo, VerInfoSize);

end;