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