как из exe фаила вытащить мета инфо

← →
dracula © (2004-08-03 18:16) [0]

как из exe фаила вытащить мета инфо - если она там есть.

← →
Sergey Kaminski © (2004-08-03 18:19) [1]

Ее там нет. Если под этим не имеется в виду что-то другое.

← →
Anatoly Podgoretsky © (2004-08-03 18:36) [2]

Она там есть, сиотри форматы исполнимых файлов

← →
dracula © (2004-08-03 18:37) [3]

Она там есть, потомучто под этим имеется в виду что-то другое.
Как в тотал командере - когда на exe файл наводишь мышку - вылазит окошко с метаинфой, может она и подругому называеться, но надо вот это =)

← →
Sergey Kaminski © (2004-08-03 18:37) [4]

Anatoly Podgoretsky © (03.08.04 18:36) [2]

Воспользуюсь советом.

← →
dracula © (2004-08-03 18:39) [5]

а как вытащить?

← →
Sergey Kaminski © (2004-08-03 18:39) [6]

может быть имеется в виду VersionInfo?

← →
dracula © (2004-08-03 18:41) [7]

да если мы об одном говорим то Versioninfo.

← →
Sergey Kaminski © (2004-08-03 18:43) [8]

См. описание ресурса VERSIONINFO в Win32.hlp :)

← →
dracula © (2004-08-03 18:47) [9]

я бы посмотрел, а это где? (глупый вопрос, но я незнаю на него ответ). А так на примере показать никак?

← →
Sergey Kaminski © (2004-08-03 18:48) [10]

И функция VerQueryValue да поможет тебе! :-)

← →
Sergey Kaminski © (2004-08-03 18:49) [11]

Сейчас напишу пример, вышлю.

Я бы хотел надеяться что поможет =). тока незнаю как 8)

Обещанный код. Немного грязноват, но написан на колене.
type TFileDescr = array [0..255] of Char; PFileDescr = ^TFileDescr; var InfoSize: DWORD; Dummy: Cardinal; FileName: string; Buff,LangBuff: PChar; PInfo: PFileDescr; InfoLen,LangLen: Cardinal; LangLocale: string; begin FileName := "C:\Program Files\Windows Media Player\wmplayer.exe"; // определяем размер структуры InfoSize := GetFileVersionInfoSize( PChar(FileName), Dummy ); if InfoSize <> 0 then begin // выделяем память для структуры GetMem (Buff,InfoSize); // читаем весь ресурс в память GetFileVersionInfo( PChar(FileName), 0, InfoSize, Buff ); // определяем локаль строковых значений ресурса VerQueryValue(Buff, "\VarFileInfo\Translation", pointer(LangBuff), LangLen); if langLen >= 4 then begin { чтобы сделать более наглядно, можно создать record для LangBuff, но можно и так :) } StrLCopy(@Dummy, LangBuff, 2); LangLocale:= Format("%4.4x", [Dummy]); StrLCopy(@Dummy, LangBuff+2, 2); LangLocale := LangLocale + Format("%4.4x", [Dummy]); // Format используем для преобразования к 16-ричному виду, // по 4 цифры на число end else // если локаль не прописана явно, берем Амер. Англ., ANSI LangLocale := "040904E4"; // читаем строку FileDescription из ресурса // для списка всех допустимых строк см. VerQueryValue // в MSDN // напр: CompanyName FileDescription FileVersion // InternalName LegalCopyright OriginalFilename ProductName // ProductVersion if VerQueryValue( Buff, PChar("\StringFileInfo\" + LangLocale + "\FileDescription"), Pointer(PInfo), InfoLen ) then begin ShowMessage (PInfo^);// да будет нам счастье! :) end; // освобождаем буфер ресурса FreeMem (Buff,InfoSize); end; end;

Как понятно из кода, читает FileDescription из exe.
Можно сделать покрасивее, определив заранее "нормальные" типы данных.

Спасибо то что нужно =)

Я так и знал =))

как из exe фаила вытащить мета инфо Найти похожие ветки