|
Вопрос # 6 024/ вопрос решён / |
|
Здравствуйте, эксперты! Подскажите где в msdn можно найти информацию про то, как узнать у файла все данные? Интересуют данные автора файла и его описание.
 |
Вопрос задал: eclipse (статус: Посетитель)
Вопрос отправлен: 24 марта 2012, 15:19
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 25 марта 2012, 17:23; участников в обсуждении: 2.
|
bugmenot (статус: 3-ий класс), 24 марта 2012, 15:46 [#1]:
Допустим, я отвечу. Но ведь тебе же опять не понравится предложенный способ. И ведь начнется новый сезон сантабарбары… :-\
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
eclipse (статус: Посетитель), 24 марта 2012, 16:03 [#2]:
 нееет, тогда была совсем другая история!
|
|
|
eclipse (статус: Посетитель), 25 марта 2012, 17:23 [#3]:
Function GetFileInfo(s: string):String;
const InfoNum = 10;
InfoStr: array[1..InfoNum] of string = ('CompanyName', 'FileDescription', 'FileVersion', 'InternalName',
'LegalCopyright', 'LegalTradeMarks', 'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
type
TLangChrSet = array[0..1] of word;
PLangChrset = ^TLangChrSet;
var res: string;
n, Len, i: DWORD;
Buf: PChar;
Value: PChar;
LangChrSet: PLangChrSet;
begin
Res:='';
//S := Application.ExeName;
n := GetFileVersionInfoSize(PChar(S), n);
if n > 0 then
begin
Buf := AllocMem(n);
GetFileVersionInfo(PChar(S), 0, n, Buf);
if VerQueryValue(Buf, PChar('VarFileInfo\Translation'), pointer(LangChrset), Len) then
begin
s:=Format('%.4x%.4x',[LangChrSet^[0], LangChrSet^[1]]); // Определил кодовую страницу информации
i:=5; // FileVersion
if VerQueryValue(Buf, PChar('StringFileInfo\' + s + '\' + InfoStr[i]), Pointer(Value), Len) then
res:=Value;
end;
FreeMem(Buf, n);
end;
Result:=res;
end;
меняем значение i, соответствуещему параметру InfoStr и получаем нужную инфу.
|
25 марта 2012, 17:24: Статус вопроса изменён на решённый (изменил автор вопроса — eclipse)
25 марта 2012, 17:34: Вопрос перемещён из тематического раздела Delphi » Взаимодействие с Windows в раздел Delphi » Работа с файловой системой модератором Ерёмин А.А.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
