Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];

Вниз

ИНФОРМАЦИЯ О exe-файле   Найти похожие ветки 

← →
stexen   (2002-03-24 15:05) [0]

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

---

← →
~Sergius   (2002-03-24 18:36) [1]

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

---

← →
ghost_by   (2002-03-25 08: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;

---

← →
ppcat   (2002-03-25 10:55) [3]

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

---

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

Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c