Ic passe gerade Assarbat's
Unit SERVICE an, damit FPC / Lazarus diese übersetzen kann.
Bei folgendem Code hab' ich keinen Plan wieso der Compiler streikt.
Delphi-Quellcode:
PROCEDURE startasservice;
var dispatchtable:ARRAY[0..1] of tservicetableentry;
BEGIN
dispatchtable[0].lpservicename:=pchar(servicename);
dispatchtable[0].lpserviceproc:=@serviceproc;
dispatchtable[1].lpservicename:=NIL;
dispatchtable[1].lpserviceproc:=NIL;
StartServiceCtrlDispatcher(dispatchtable[0]); // << Hier entsteht der Fehler
END;
service.pas(168,46) Error: Incompatible type for arg no. 1: Got "_SERVICE_TABLE_ENTRYA", expected "LPSERVICE_TABLE_ENTRYA"
g3svc.lpr(3709,10) Hint: Found declaration: StartServiceCtrlDispatcher(LPSERVICE_TABLE_ENTRYA) :LongBool;StdCall
service.pas(212,66) Error: Identifier not found "_DELETE"
Kann mir da jemand weiterhelfen?