invalid winapi functions definition
Original Reporter info from Mantis: Nicky
-
Reporter name: Nick
Original Reporter info from Mantis: Nicky
- Reporter name: Nick
Description:
function StartServiceCtrlDispatcherW(lpServiceStartTable:LPSERVICE_TABLE_ENTRY):WINBOOL; external 'advapi32' name 'StartServiceCtrlDispatcherW';
// used types:
LPTSTR = Pchar; // must be PWideChar instead of PAnsiChar
LPPTSTR = ^LPTSTR;
LPSERVICE_MAIN_FUNCTION = procedure (_para1:DWORD; _para2:LPPTSTR);stdcall;
SERVICE_TABLE_ENTRY = record
lpServiceName : LPTSTR;
lpServiceProc : LPSERVICE_MAIN_FUNCTION;
end;
LPSERVICE_TABLE_ENTRY = ^SERVICE_TABLE_ENTRY;
----------- params of *W functions must use PWideChar: ----------- LPSERVICE_MAIN_FUNCTIONW = procedure(dwNumServicesArgs: DWORD; lpServiceArgVectors: LPWSTR); stdcall;
SERVICE_TABLE_ENTRYW = record
lpServiceName: PWideChar;
lpServiceProc: LPSERVICE_MAIN_FUNCTIONW;
end;
LPSERVICE_TABLE_ENTRYW = ^SERVICE_TABLE_ENTRYW;
function StartServiceCtrlDispatcherW(lpServiceStartTable: LPSERVICE_TABLE_ENTRYW): WINBOOL; stdcall; external 'advapi32' name 'StartServiceCtrlDispatcherW';
Additional information:
some other bugged functions from unifun.inc:
QueryServiceConfigW
EnumResourceTypesW
EnumResourceNamesW
EnumResourceLanguagesW
EnumServicesStatusW
and more...