procedure TForm1.Button1Click(Sender: TObject);
var
 servicemanager, service:Cardinal;
 ss:SERVICE_STATUS;
begin
 servicemanager:=OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
 service:=OpenService(servicemanager, 'Messenger', SERVICE_ALL_ACCESS);
 if service=0 then
  begin
   ShowMessage('Îøèáêà');
   exit;
  end;
 ControlService(service, SERVICE_CONTROL_STOP, ss);
 CloseServiceHandle(service);
end;