EnumServicesStatus pascal聲明

Question

我打電話給EnumServicesStatus函數在pascal.But如何聲明它。 這裏是一個例如OpenSCManager

function OpenSCManager(lpMachineName, lpDatabaseName: string; dwDesiredAccess :cardinal): HANDLE; 
external 'OpenSCManagerA@advapi32.dll stdcall'; 

感謝。

Answer 1

看起來好像有人已經完成了將可以使用的整個API .pas文件放在一起的艱苦工作。退房：

http://gr32ex.googlecode.com/svn/trunk/GR32Ex/Examples/DesktopSnow/GPSysHook/api/JwaWinSvc.pas

搜索EnumServicesStatusA或EnumServicesStatusW; ANSI和Unicode都在那裏。你可能會找到各種各樣的結構，枚舉和其他可以抓取的東西。

以防萬一的該文件的URL改變了，從它認爲是相關的線路，分別是：

function EnumServicesStatusA(hSCManager: SC_HANDLE; dwServiceType: DWORD; 
    dwServiceState: DWORD; lpServices: LPENUM_SERVICE_STATUSA; cbBufSize: DWORD; 
    var pcbBytesNeeded, lpServicesReturned, lpResumeHandle: DWORD): BOOL; stdcall; 
{$EXTERNALSYM EnumServicesStatusA} 

function EnumServicesStatusW(hSCManager: SC_HANDLE; dwServiceType: DWORD; 
    dwServiceState: DWORD; lpServices: LPENUM_SERVICE_STATUSW; cbBufSize: DWORD; 
    var pcbBytesNeeded, lpServicesReturned, lpResumeHandle: DWORD): BOOL; stdcall; 
{$EXTERNALSYM EnumServicesStatusW} 

function EnumServicesStatus(hSCManager: SC_HANDLE; dwServiceType: DWORD; 
    dwServiceState: DWORD; lpServices: LPENUM_SERVICE_STATUS; cbBufSize: DWORD; 
    var pcbBytesNeeded, lpServicesReturned, lpResumeHandle: DWORD): BOOL; stdcall; 
{$EXTERNALSYM EnumServicesStatus}