DLL Funktionsaufruf

[Neutral General]

Zitat von sirius:

Zitat von Neutral General:

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......)

Wie liefert dir DLLGetVersion $12F618 (sieht übrigens nach einer StackAdresse aus)
Wie, und was wird dir wo angezeigt? Ich verstehe dich nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x: DLLVERSIONINFO;
begin
  FilLChar(x,SizeOf(DLLVERSIONINFO),0);
  x.cbSize := SizeOf(DLLVERSIONINFO);
  ShowMessage(IntToHex(DLLGetVersion(x),6));
  ShowMessage(SysErrorMessage(GetLastError));
  ShowMessage(IntToStr(x.dwMajorVersion) + '.'+ IntToStr(x.dwMinorVersion));
end;

Zitat:

---------------------------
Cabtestapp
---------------------------
12F618
---------------------------
OK
---------------------------

Zitat:

---------------------------
Cabtestapp
---------------------------
Der Vorgang wurde erfolgreich beendet
---------------------------
OK
---------------------------

Zitat:

---------------------------
Cabtestapp
---------------------------
0.0
---------------------------
OK
---------------------------

Alles klar?