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

Вниз

VerQueryValue !   Найти похожие ветки 

 
psa247 ©   (2005-11-21 18:52) [0]

Не могу получить информацию из ресурсов файла. GetLastError выдает сообщение, что указанный тип ресурса в образе отсутствует, хотя в действительности есть.


  ThisVerFixedFileInfo : TVSFixedFileInfo;
  VSize : integer;
  VHandle:DWORD;
  Info : pointer;
  PC : pointer;
  Len : UINT;

  str :string;
begin
  EUID:= "{C6D3F6D4-8CD5-458B-A3AC-CF7667663C73";
  VSize:= GetFileVersionInfoSize(PChar(Filename), VHandle);
  if VSize > 0 then begin
    GetMem(Info, VSize);
    if GetFileVersionInfo(PChar(Filename),VHandle,VSize, Info)then begin

      if VerQueryValue(Info,"\\StringFileInfo\\040904E4\\FileDescription",PC,Len)
         then str:= StrPas(PC)
     else str:= SysErrorMessage(GetLastError);


 
psa247 ©   (2005-11-21 19:16) [1]

Упер вариант Семена Сорокина
:)


 
Digitman ©   (2005-11-22 15:07) [2]


> Упер вариант Семена Сорокина


вот именно - "упер" ... бездумно) .... авось да заработает)

ну вот скажи на милость, за коим хреном ты делишь узлы пути двойными бэкслэшами, в то время как в справке черным по белому написано

The string consists of names separated by backslashes (\)

ГДЕ тут про двойные бэкслэши написано ?)

если ты про ниже приводимый в справке пример

The following example shows how to retrieve the FileDescription string-value from a block of version information:

VerQueryValue(pBlock,  
             TEXT("\\StringFileInfo\\040904E4\\FileDescription"),
             &lpBuffer,
             &dwBytes);

то это же С-шный пример, а не паскалевый)


 
psa247 ©   (2005-11-25 10:22) [3]


> бездумно)

Да нет. Проблему нашел в lang-charset проанализировав данный пример.

> С-шный пример

Вот-вот. При удалении директорий, как оказалось, тоже двойные слэши нужны



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

Текущий архив: 2005.12.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
2-1132795777
SkyRanger
2005-11-24 04:29
2005.12.11
CallBack


14-1132314851
Udaff
2005-11-18 14:54
2005.12.11
розыскиваю книги автора


2-1132334155
boble
2005-11-18 20:15
2005.12.11
FILTER по LOOKUP полям


2-1132915316
De
2005-11-25 13:41
2005.12.11
Возможны ли извраты с PopupMenu?


14-1132697502
NightLord
2005-11-23 01:11
2005.12.11
Новая дыра в IE