Как получить версию ActiveX компонента

← →
reach © (2002-09-02 12:41) [0]

в среде delphi есть возможность включения информации о версии проекта (Project)
так вот! для exe файла я делаю так

var
S: string;
n, Len: DWORD;
Buf: PChar;
Value: PChar;
begin
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("StringFileInfo\041904E3\FileVersion"), Pointer(Value), Len) then
FreeMem(Buf, n);
end;

после выполнения этого кода переменная Value содержит версию в формате x.x.x.x

но жля ocx компонента который в последующем вызывается из браузера (например IE) этот вариант не работает!
и это понятно потому что
S := Application.ExeName;
дает вместо пути/имени OCX путь/имя выполнимого файла моего браузера
-----------------
так вот, народ, может у когонить возникала такая проблема?
поделитесь опытом плиз

← →
Набережных С. (2002-09-02 16:10) [1]

GetModuleFilename?

← →
reach © (2002-09-03 16:56) [2]

Хм
да! я думаю это то!
-------------
но
из хелпа вот что видно
....This function is not available on Windows.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

как сие понимать?

и второе
а как вызывать эту функцию?
что такое Module: HMODULE; и де это брать?
сори за чайниковский вопрос ;)

← →
Набережных С. (2002-09-03 17:48) [3]

Вместо S := Application.ExeName :
SetLength(s,255); if GetModuleFileName(hInstance,PChar(S),255) = 0 then RaiseLast...

большое спасибо!
все разобрался
работает

Как получить версию ActiveX компонента Найти похожие ветки