Как сделать демон (в линуксовом смысле этого слова) в Windows

MyFile$="NameFile" ; Тут имя вашего файла и путь к нему
Repeat
  If FileSize( MyFile$)>0
    MessageRequester("","File OK!") ; если индикация результата не нужна, то удалить.
    Break
  EndIf
  Delay(10)
ForEver

Compiler = RunProgram(#PB_Compiler_Home+"/Compilers/pbcompiler", "/?", "", #PB_Program_Open|#PB_Program_Read)
  Output$ = ""
  If Compiler
    While ProgramRunning(Compiler)
      If AvailableProgramOutput(Compiler)
        Output$ + ReadProgramString(Compiler) + Chr(13)
      EndIf
    Wend
    Output$ + Chr(13) + Chr(13)
    Output$ + "Exitcode: " + Str(ProgramExitCode(Compiler))
    
    CloseProgram(Compiler) ; Close the connection to the program
  EndIf
  
  MessageRequester("Output", Output$)

; SendPowerShell is a variation on a Nituvious post of SendConsole
Global hInput
Procedure SendPowerShell(szText.s)
  szLength = Len(szText.s)
  For sz = 0 To szLength+1
    szCharacter$ = Mid(szText.s,sz+1,1)
    szLetterByLetter=Asc(szCharacter$)
    Delay(7) ; -- Make sure the szCharacter$ has been recorded. Else it may skip duplicates which is bad.
    PostMessage_(hInput,#WM_CHAR,szLetterByLetter,0)
  Next
  PostMessage_(hInput,#WM_CHAR,13,0)
EndProcedure
 
  DevDir$ = "C:\PBTest\" ; Your DIR and FILE info as needed here and below
  Cmd$ = "(Get-ChildItem "
  Filter$ = " -filter "  + Chr(34) + "*.pb" + Chr(34) ; your wildcard file choice here
  Property$ = ").Count"
  DoPBFileCount$ ="$FileCount = " + Cmd$ + DevDir$ + FILTER$ + Property$ ; PS will count files in DevDir
  CountToHost$ ="write-host $FileCount"
  File1$ = "$strReference = Get-Content " + Chr(34) + "C:\PBTest\T1.pb" + Chr(34)
  File2$ = "$strDifference = Get-Content " + Chr(34) + "C:\PBTest\T2.pb" + Chr(34)
  CompareFiles$ = "Compare-Object $strReference $strDifference"
  Name.s = "C:\Windows\system32\WindowsPowerShell\v1.0\powershell.exe" ; On Win7, this is really PS Ver 2
 
hInput = FindWindow_(0, @Name)
If hInput = 0
  RunProgram(name)
  Delay(100) ; don't look too soon :)
  hInput = FindWindow_(0, @Name)
EndIf
 
If hInput = 0
  Debug "Error, program did not open or string mismatch!"
Else
  SendPowerShell("echo Hello PSWorld!")
 
  SendPowerShell(DoPBFileCount$)
  SendPowerShell(CountToHost$) ;Show Dev:\Dir\*.pb FileCount
 
  SendPowerShell(File1$)
  SendPowerShell(File2$)
  SendPowerShell(CompareFiles$) ; Show File1,File2 Differences
EndIf

; Т.к. процедура из потока ни чего не возвращает, то массив глобальный
Global Dim Measurements.f(9)
 
; Создаем суперпроцедуру с формулой
Procedure VeryHardFormula(Parameter)
Measurements(Parameter)=Measurements(Parameter) + Random(100)
EndProcedure
 
; Создаем 10 потоков, считающих по формуле
For k = 0 To 9
  CreateThread(@VeryHardFormula(),k)
Next k
 
; Наслаждаемся результатом!
 
For k = 0 To 9
Debug   Measurements(k)
Next k
 
 
 
 
;Повторяем процесс, убеждаемся ,что работает!
Debug "*************************************"
; И ещё раз - создаем 10 потоков, считающих по формуле
For k = 0 To 9
  CreateThread(@VeryHardFormula(),k)
Next k
 
; Снова наслаждаемся результатом!
 
For k = 0 To 9
Debug   Measurements(k)
Next k