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

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

ИНФОРМАЦИЯ О exe-файле

stexen ©   (2002-03-24 15:05:00) 

Как узнать информацию о екзе файле... кто написал какая версия адрес почта и тд.. эту инфу можно в дельфи настраивать

---

ppcat   (2002-03-25 10:55:00) [1]

Спасибо за ответы. Все отлично работает.

---

ghost_by   (2002-03-25 08:00:00) [2]

Работающий пример, на входе - имя EXE, на выходе строка типа X.X.X.X

function GetFileVersion(const FileName:string):string;
var
InfoSize,Wnd:DWORD;
VerBuf:Pointer;
FI:PVSFixedFileInfo;
VerSize:DWORD;
begin
Result:="";
InfoSize:=GetFileVersionInfoSize(PChar(FileName),Wnd);
if InfoSize<>0 then begin
GetMem(VerBuf,InfoSize);
try
if GetFileVersionInfo(PChar(FileName),Wnd,InfoSize,VerBuf) then
if VerQueryValue(VerBuf,"\",Pointer(FI),VerSize) then
Result:=IntToStr(FI.dwFileVersionMS shr 16)+"."+
IntToStr(FI.dwFileVersionMS and $FFFF)+"."+
IntToStr(FI.dwFileVersionLS shr 16)+"."+
IntToStr(FI.dwFileVersionLS and $FFFF);
finally
FreeMem(VerBuf);
end;
end;
end;

---

~Sergius   (2002-03-24 18:36:00) [3]

смотри АПИ хелп по функциям:
GetFileVersionInfoSize
GetFileVersionInfo

---

Наверх