Текущий архив: 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.05 c
