Hallo Leute, ich arbeite gerade an einem Programm um Services zu überwachen.
Dazu läuft ein Timer der regelmäßig den Service-Status überprüft.
Ich habe ein Objekt "ServiceManager"
Doch jedes mal wenn ich in diesem Objekt eine Funktion aufrufe entsteht angeblich ein Speicherleck. (Sagt mir zumindest FastMM4)
Hiermit verbinde ich mich zu einem Service:
Delphi-Quellcode:
function TServiceManager.OpenServiceConnection(ServiceName: PChar): boolean;
begin
//result := false;
{ open a connetcion to a specific service }
ServiceHandle := OpenService(ServiceControlManager, ServiceName, SERVICE_ALL_ACCESS);
result := (ServiceHandle <> 0);
end;
Hiermit frage ich den Status eines Dienstes ab mit dem ich mich aktuell verbunden habe:
Delphi-Quellcode:
function TServiceManager.GetStatus: DWORD;
var
ServiceStatus: TServiceStatus;
begin
{ Returns the status of the service. Maybe you want to check this
more than once, so just call this function again.
Results may be: SERVICE_STOPPED
SERVICE_START_PENDING
SERVICE_STOP_PENDING
SERVICE_RUNNING
SERVICE_CONTINUE_PENDING
SERVICE_PAUSE_PENDING
SERVICE_PAUSED}
QueryServiceStatus(ServiceHandle,ServiceStatus);
result := ServiceStatus.dwCurrentState;
end;
Und Damit beende ich die verbindung zum Service:
Delphi-Quellcode:
function TServiceManager.CloseServiceConnection: Boolean;
begin
result:= CloseServiceHandle(ServiceHandle);
end;
So lautet die Funktion mit der ich einen Service-Status abfrage:
Delphi-Quellcode:
function TMainForm.ServiceGetStatus(sService: PChar): Integer;
begin
try
if FServiceManager.OpenServiceConnection(sService) then
Result := FServiceManager.GetStatus // Entweder normaler Status
else
Result := SERVICE_NOT_FOUND; // ... oder nicht gefunden
FServiceManager.CloseServiceConnection;
except
result := SERVICE_READERROR; // Fehler aufgetreten?
end;
end;
und so rufe ich diese Funktion auf:
ServiceGetStatus(PChar(Data^.FServiceName));
Doch je länger und öfter ich den Status eines Dienstes aktuallisiere desto größer wird das Speicherleck -.-
Was genau mache ich falsch und was kann ich stattdessen tun?
Achja, Data^.FServiceName ist ein Record eines VST vom Typ String...