2019年10月19日オープンリモートデスクトップ

手続きCloseSleepAndDisplayOn。
開始
  のShellExecute（0、' オープン'、' cmd.exeの'、' / C POWERCFG / X /モニタータイムアウト-AC 0 '、ゼロ、SW_HIDE）。
  ShellExecute（0、' オープン'、' cmd.exeの'、' / C POWERCFG / X /モニタータイムアウト-DC 0 '、ゼロ、SW_HIDE）。
  ShellExecute（0、' オープン'、" cmd.exeを' ' / C POWERCFG / X /休止タイムアウト-AC 0 '、ゼロ、SW_HIDE）。
  ShellExecute（0、' オープン'、' cmd.exeの'、' / C POWERCFG / X /休止タイムアウト-DC 0 '、ゼロ、SW_HIDE）。
  ShellExecute（0、' オープン'、' cmd.exeの'、' / C POWERCFG / X /スタンバイタイムアウト-AC 0 '、ゼロ、SW_HIDE）。
  ShellExecute（0、' オープン'、' cmd.exeの'、' / C POWERCFG / X /スタンバイタイムアウト-DC 0 '、ゼロ、SW_HIDE）。
エンド; 

手順EnableWindowsFirewall（ターンオン：ブール値）;
CONSTは
  firewall_cmd：配列 [ブール] の 文字列 
    =（' / Cのnetshセットallprofilesはオフ状態をadvfirewall ' 、
       ' / Cのnetshをadvfirewallにallprofiles状態を設定します' ）。
始める
  のShellExecute（0を、' オープン'、' cmd.exeの'、PChar型（firewall_cmd [ターンオン]）、ゼロ、SW_HIDE）。
エンド; 

手順OpenRemoteDesktop;
VAR 
  のReg：TRegistryオブジェクト。
  V：整数; 
  STEXT：文字列;
開始
  ：レッグ = TRegistryオブジェクトを。作成します。
  Reg.RootKey： = HKEY_LOCAL_MACHINE;
  もし ない Reg.OpenKey（' SYSTEM \ ControlSet001の\コントロール\ターミナルサーバー'、TRUE） 、その後
    終了します。
  Reg.WriteInteger（' fDenyTSConnections '、0）; 
  Reg.CloseKey; 
  Reg.Free; 

  REG： = TRegistryオブジェクト。作成します。
  Reg.RootKey： = HKEY_LOCAL_MACHINE;
  もし ない Reg.OpenKey（' SYSTEM \ ControlSet001の\ Servicesの\ SharedAccess \エポック'、TRUE） 、その後
    終了します。
  V： = Reg.ReadInteger（' エポック' ）; 
  Reg.WriteInteger（' エポック'、V + 3 ）。
  Reg.CloseKey; 
  Reg.Free; 

  REG： = TRegistryオブジェクト。作成します。
  Reg.RootKey： =HKEY_LOCAL_MACHINE;
  もし ない Reg.OpenKey（' SYSTEM \ ControlSet001の\ Servicesの\ SharedAccess \パラメータ\ FirewallPolicy \ FirewallRules '、TRUE） 、その後
    終了します。
  STEXT： = Reg.ReadString（' RemoteDesktop-シャドウ・イン・TCP ' ）; 
  StringReplace（STEXT、' アクティブ= FALSE '、' アクティブ= TRUE ' 、[]）。
  （Reg.WriteString ' RemoteDesktop-シャドウイン-TCP ' 、STEXT）。

  STEXT： = Reg.ReadString（' RemoteDesktop-ユーザーモード・イン・TCP ' ）;
  StringReplace（STEXT、' アクティブ= FALSE '、' アクティブ= TRUE ' 、[]）。
  Reg.WriteString（' RemoteDesktop-ユーザーモード・イン・TCP ' 、STEXT）。

  STEXT： = Reg.ReadString（' RemoteDesktop-ユーザーモード・イン・UDP ' ）; 
  StringReplace（STEXT、' アクティブ= FALSE '、' アクティブ= TRUE ' 、[]）。
  （Reg.WriteString ' RemoteDesktop-ユーザーモード・イン・UDP ' 、STEXT）。

  Reg.CloseKey; 
  Reg.Free; 

  SendMessage（HWND_BROADCAST、WM_SETTINGCHANGE、0、0 ）;
エンド ;