Moin daPimP,
mir kam der Sourcecode doch gleich so bekannt vor
Dann will ich auch mal hier die Übersetzung erstellen:
Delphi-Quellcode:
type
SC_ENUM_TYPE = (SC_ENUM_PROCESS_INFO = Cardinal(0));
function EnumServicesStatusEx(
const hSCManager : SC_HANDLE;
const InfoLevel : SC_ENUM_TYPE;
const dwServiceType : DWORD;
const dwServiceState : DWORD;
const lpServices : PBYTE;
const cbBufSize : DWORD;
const pcbBytesNeeded : LPDWORD;
const lpServicesReturned : LPDWORD;
const lpResumeHandle : LPDWORD;
const pszGroupName : LPCTSTR
) : LongBool; stdcall; external 'advapi32.dll' name 'EnumServicesStatusExA';
Nicht zu vergessen WinSvc in den Uses mit einzubinden.
Ich importiere die Funktionen immer mit const. An den Stellen, an denen ein Pointer übergeben werden soll, findet man oft auch var, aber dann
muss man eine Variable angeben, auch wenn die Funktion durchaus nil als übergebenen Wert zulassen würde.
Durch die Verwendung von const fällt es mir leichter eventuelle Beispiele umzusetzen.
Statt LPCTSTR kann man auch PCHAR nehmen.