Скачать: 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 вся ветка

Скачать: CL | DM;



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