| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Извлечении такстовой версии из файла [D6, Win95/98, WinME, Win2k, WinXP]

Woolen ©   (2002-10-24 12:42:00) 

Здравствуйте, помогите, пожалуйста извлечь версию из файла. Не могу разобраться. Нужно получить версию продукта в текстовомвиде. Я знаю, что она там есть. Однако в WinAPI, по крайней мере в документации, которая поставляется с Delphi, этого нет. Есть только числовой вариант в структуре VS_FIXEDFILEINFO. Его извлечь, видимо, можно. А где текстовый, который записывается в полях Delphi в опциях проекта? Напишите там любую комбинацию цифр и точек с любым количеством нулей и Delphi все передаст в тексте до последнего нолика. А вот как достать? Помогите все, кто знает.

---

Woolen   (2002-10-24 18:19:00) [1]

Спасибо!

---

Игорь Шевченко   (2002-10-24 17:37:00) [2]

Прошу прощения, забыл:

type
PVerLang = ^TVerLang;
TVerLang = packed record
Charset : Word;
LangID : Word;
end;

С уважением,

---

Woolen   (2002-10-24 16:03:00) [3]

Никак не могу понять, что за тип такой PVerLang и как он устроен. Я так понял, это указатель на структуру. А на какую?

---

Woolen   (2002-10-24 14:56:00) [4]

Спасибо, надеюсь, что это мне поможет.

---

Игорь Шевченко   (2002-10-24 12:50:00) [5]

procedure TfrmMain.GetVersionAttributes(Name: String; var ACompany,
ADescription, AComment: String);

var VerInfoSize : DWord;
dummy : DWord;
VerInfo : Pointer;
VSFixed : PVSFixedFileInfo;
VSFixedSize : DWORD;
VTranslation : PVerLang;
VTRSize : DWORD;
LangID : String;
VerKey : String;
VerDesc : PChar;
VerDescSize : DWORD;
VerCompany : PChar;
VerCompanySize : DWORD;
VerComment : PChar;
VerCommentSize : DWORD;
Status : LongBool;
begin
ACompany := "<Not available>";
ADescription := "<Not available>";
AComment := "";
VerInfoSize := GetFileVersionInfoSize(PChar(Name), dummy);
if (VerInfoSize = 0) then
Exit;
GetMem( VerInfo, VerInfoSize );
try
Status := GetFileVersionInfo(PChar(Name), 0, VerInfoSize, VerInfo);
if NOT Status then
Exit;
VerQueryValue( VerInfo, "\", Pointer(VSFixed), VSFixedSize);
VerQueryValue( VerInfo, "\VarFileInfo\Translation", Pointer(VTranslation), VTRSize);
if (VTRSize = 4) then begin
LangID := Format("%.4x%.4x", [VTranslation^.CharSet, VTranslation^.LangID]);
VerKey := "\StringFileInfo\"+LangID+"\FileDescription";
Status := VerQueryValue (VerInfo,PChar(VerKey), Pointer(VerDesc), VerDescSize);
if (Status) AND (VerDescSize <> 0) then
ADescription := VerDesc;
VerKey := "\StringFileInfo\"+LangID+"\CompanyName";
Status := VerQueryValue (VerInfo,PChar(VerKey), Pointer(VerCompany), VerCompanySize);
if (Status) AND (VerCompanySize <> 0) then
ACompany := VerCompany;
VerKey := "\StringFileInfo\"+LangID+"\Comments";
Status := VerQueryValue (VerInfo,PChar(VerKey), Pointer(VerComment), VerCommentSize);
if (Status) AND (VerCommentSize <> 0) then
AComment := VerComment;
end;
finally
FreeMem(VerInfo, VerInfoSize);
end;
end;



Как пример...

---

Наверх