Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Помогите с кодом GetFileVersionInfo.... (+)   Найти похожие ветки 

← →
EarlVadim ©   (2005-09-26 09:59) [0]

Пример из HELP"a не даёт результата. Видимо руки кривые.
    S := Application.ExeName;
    n := GetFileVersionInfoSize(PChar(S), n);
    if n > 0 then
    begin
        Buf := AllocMem(n);
        GetFileVersionInfo(PChar(S), 0, n, Buf);
        S1:= "\StringFileInfo\041904b0\FileVersion" ;
        If VerQueryValue(Buf, PChar(S1), Pointer(Value), Len) then
        StaticText1.Caption:= Value;
        FreeMem(Buf, n);
    end
Где я ошибся?

---

← →
dmitry501 ©   (2005-09-26 10:02) [1]

// Получить информацию о версии

function GetVersion: string;
var
   VerInfoSize: DWORD;
   VerInfo: Pointer;
   VerValueSize: DWORD;
   VerValue: PVSFixedFileInfo;
   Dummy: DWORD;
begin
   VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
   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);
           //     Result := Result + " (" + IntToStr(dwFileDateLS)+")";
       end;
   FreeMem(VerInfo, VerInfoSize);
end;

---

← →
EarlVadim ©   (2005-09-26 11:17) [2]

СПАСИБО.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.032 c