Gibt was neues:
function DllGetVersion(var pdvi: DLLVERSIONINFO): HRESULT; stdcall; external 'cabinet.dll';
so muss es sein. Mein Aufruf im Moment:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var x: DLLVERSIONINFO;
begin
FilLChar(x,SizeOf(DLLVERSIONINFO),0);
x.cbSize := SizeOf(DLLVERSIONINFO);
DLLGetVersion(x);
ShowMessage(IntToStr(x.dwMajorVersion) + '.'+ IntToStr(x.dwMinorVersion));
end;
DLLGetVersion liefert mir $12F618. GetLastError liefert mir "Alles in Ordnung". Im Idealfall soll DLLGetVersion S_OK ($00000000) zurückliefern. Jedoch finde ich auch sonst nichts was $12F618 entspricht. Angezeigt wird mir nämlich Version 0.0 (was wohl sehr wahrscheinlich von meinem FillChar kommt......)
Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."