Delphi Callback in C++ DLL (mal wieder)

[NickelM]

Hm also in deinem geposteten Code hab ich gleich 2 Fehler gefunden:

Delphi-Quellcode:

Type
     APPLICATION_HANDLEPROC = Procedure (nEvent: Integer; pData: Pointer); stdcall;


     _cyg_InitAPI = Function (lpszPath: PAnsiChar; pfnApplicationEventHandler: APPLICATION_HANDLEPROC;
                              nLeft, nTop, nWidth, nHeight: Integer; bRunInForeground: wordbool = True): Integer; stdcall;
  
...

                    //warum var? haste oben auch nicht
Procedure Handler ({var }nEvent: Integer; pData: Pointer); Stdcall;
Begin
   ShowMessage('Hallo');
End;

function TSygicMap.InitAPI(strPath:STring) : Integer ;
begin                     //Warum einen pointer auf PAnsiChar? LPCTSTR ist PAnsiChar mehr nicht
  result:= _proc_InitAPI({@}PansiChar(StrPath),@handler,FLeft,FTop,FWidth,FHeight,FRunInForeground);
end;

Versuchs mal so. und @handler ist richtig.