SQL EXpress Client Problem

[Pet04]

klar aber ich wollte dazu noch Abfragen ob der SQL Server Dienst läuft


function ServiceRunning(sMachine, sService: PChar): Boolean;
begin
Result := SERVICE_RUNNING = ServiceGetStatus(sMachine, sService);
end;



if ServiceRunning(nil,pchar('MSSQL$'+SQL_Instanz)) then
begin
....

if not ServiceRunning(nil,pchar('MSSQL$'+SQL_Instanz)) then
begin
....

Ist aber leider nur lokal

Lösung:
sMachine ist der Rechnername !!!!!

>> sMachine := Rechner ; setzen


gruß
Pet