Code: Select all
try
DM.IBCRestoreService1.ServiceStart;
while DM.IBCRestoreService1.IsServiceRunning do begin
Application.ProcessMessages;
end;
except
on E: EDAError do begin
// catch me
end;
end;
Code: Select all
try
DM.IBCRestoreService1.ServiceStart;
while DM.IBCRestoreService1.IsServiceRunning do begin
Application.ProcessMessages;
end;
except
on E: EDAError do begin
// catch me
end;
end;