デルファイシャットダウンし、Windowsサービスを無効にします

関数 StopServices（constの svrnameは：文字列）：ブール;
VAR 
  SCH、SvcSCH：SC_HANDLE。
  SS：TServiceStatus。
開始
  結果： = falseは、
  SCH： = OpenSCManager（ゼロ、ゼロ、SC_MANAGER_ALL_ACCESS）。
  もし SCH <= 0は 、その後終了します。

  SvcSCH： = のOpenService（SCH、PChar型（svrnameは）、SERVICE_ALL_ACCESS）。
  もし SvcSCH <= 0は 、その後終了します。

  トライ
    結果： = のControlService（SvcSCH、SERVICE_CONTROL_STOP、SS）; 

    もし結果次に
    開始
      検索結果を： = ChangeServiceConfig（SvcSCH、SERVICE_NO_CHANGE、SERVICE_DISABLED、
        SERVICE_NO_CHANGE、ゼロ、ゼロ、ゼロ、ゼロ、ゼロ、ゼロ、ゼロ）。
    エンド;
  最後に
    CloseServiceHandle（SCH）。
    CloseServiceHandle（SvcSCH）。
  エンド;
エンド ;

コール：

StopServices（' WSearch '）