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.