Also es Funktioniert, ich möchte nur nachfragen was sich in Delphi am verhalten geändert hat.
Die Procedure hat so immer Funkioniert Delphi5,Delphi7,Delphi2010,DelphiXE4,DelphiXE8
Jetzt mit 11.x wird nur noch ein Event geliefert, das steht auch so bei MS hier:
https://learn.microsoft.com/en-us/wi...s-rasdialfunc2
Also habe ich die procedure in eine function geändert, und es Funkioniert wieder.(mit allen Versionen)
Jetzt ist nur die Frage warum das vorher immer Funktioniert hat, war vielleicht in den alten Versionen das Result mit Zufallswerten/alten Werten belegt, und jetzt immer mit "0" ?
alt
Delphi-Quellcode:
procedure RasDialFunc2 (dwCallBackId, dwSubEntry: DWORD; ConnHandle: HRASConn;
Msg: UINT; RasCS: integer; dwError, dwExtendedError: DWORD); stdcall;
begin
..
end;
neu
Delphi-Quellcode:
function RasDialFunc2 (dwCallBackId, dwSubEntry: DWORD; ConnHandle: HRASConn;
Msg: UINT; RasCS: integer; dwError, dwExtendedError: DWORD): DWord; stdcall;
begin
...
Result := 1;
end ;