Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: CL | DM;

Вниз

Помогите с кодом 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
2-1127214337
I231
2005-09-20 15:05
2005.10.16
beep


3-1125497727
Dmitrich
2005-08-31 18:15
2005.10.16
Почему БД (interBase 6.0) не работает с диска?


1-1127666600
rusteam
2005-09-25 20:43
2005.10.16
прорисовать bmp в StringGrid в строго определенном месте


14-1127281640
КаПиБаРа
2005-09-21 09:47
2005.10.16
Я считаю что в школе пора вводить предмет Толерантность


2-1126212783
veronika
2005-09-09 00:53
2005.10.16
Hot Key