Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

как узнать имя компании создавшей фаил   Найти похожие ветки 

 
ctranik   (2005-08-26 22:04) [0]

Всем привет

Подскажите пожалуйсто как Windows получает из любого файла
информацию типа "ИМЯ КОМПАНИИ"( при условие что фаил содержит такого рода информацию)
И всё это я так понимаю происходит при помощи API- функции.
Но вот каких ???


 
kami ©   (2005-08-26 22:29) [1]

GetFileVersionInfo - see MSDN
+ посмотреть исходники tvfileinfo с http://www.torry.net


 
Турист   (2005-08-26 22:37) [2]

>ctranik   (26.08.05 22:04)  



function VerTranslation(VerInfo : Pointer): string;
var
 P : Pointer;
 L : DWord;
begin
 if VerQueryValue(VerInfo, "\VarFileInfo\Translation", P, L) then
   Result := IntToHex(MakeLong(HiWord(Longint(P^)), LoWord(Longint(P^))), 8)
 else
   Result := "040904E4"
end;

function VerValue(VerInfo : Pointer; const Name: string): string;
var
 Value : Pointer;
 Len   : DWord;
begin
 if VerQueryValue(VerInfo, PChar("\StringFileInfo\" +
                  VerTranslation(VerInfo) + "\" + Name), Value, Len) then
   Result := StrPas(Value)
 else
   Result := "";
end;

function ProductVersionParam(const aFileName, aParamName : string) : string;
var
 Handle : THandle;
 dwSize : DWord;
 Buffer : Pointer;
begin
 Result := "";
 dwSize := GetFileVersionInfoSize(PChar(aFileName), Handle);
 if dwSize > 0 then begin
   Buffer := AllocMem(dwSize);
   if Buffer <> NIL then try
     if GetFileVersionInfo(PChar(aFileName), Handle, dwSize, Buffer) then
       Result := VerValue(Buffer, aParamName)
   finally
     FreeMem(Buffer)
   end
 end
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 ShowMessage(ProductVersionParam(ParamStr(0), "CompanyName"))
end;



 
ctranik   (2005-08-27 18:02) [3]


> Турист  

Благодарствую,хотя пока не очень вник в код.

если вдруг до чего-то недодукаюсь , будет возможность обратится за  разьяснениями ???


 
Турист   (2005-08-27 18:05) [4]

>ctranik   (27.08.05 18:02) [3]

Всегда пожалуйста.
Предоставлю любые ответы на любые вопросы.


 
psa247 ©   (2005-08-27 18:39) [5]

А на кой оно тебе?
Жми CTRL + SHIFT + F12 -> припиши своей будущей проге -
company name: MICROSOFT+


 
Турист   (2005-08-28 18:28) [6]

от Турист   (26.08.05 22:37) [2]

>Турист   (27.08.05 18:05) [4]
Не делай так - совесть замучит


 
Турист   (2005-08-28 18:35) [7]

Не делай так - совесть замучит

В зеркало смотреть.
До самого, такска-ать, просветления.


 
Турист   (2005-08-28 19:03) [8]

от Турист   (28.08.05 18:28) [6]
>Турист   (28.08.05 18:35) [7]
Твой выбор



Страницы: 1 вся ветка

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.044 c
14-1128658480
MBo
2005-10-07 08:14
2005.10.30
Пятничные задачки. Сogito ergo sum.


3-1126969360
810
2005-09-17 19:02
2005.10.30
Фильтрация таблицы DBF


14-1128580186
Мазут Береговой
2005-10-06 10:29
2005.10.30
Сделал открытие века! Такой вот я непоседа!


8-1117729988
sashik
2005-06-02 20:33
2005.10.30
OenGL


8-1117828011
Crazy_Diman
2005-06-03 23:46
2005.10.30
проблема с Timage