Alle Dienste auflisten / Prüfen ob Dienst pausiert ist

[Sunny]

Joar...
Ich würde gern wissen, ob (und wenn ja Wie?) es möglich ist alle Dienste aufzulisten und wie ich überprüfen kann, ob ein Dienst pausiert ist...

[ts-soft]

Mit NET START bekommste eine Auflistung, starten kannste die Dienste damit auch,
Prüfung ob pausiert, keine Ahnung, wozu soll das gut sein?

Den Rest findeste hier: http://www.purebasic.com/german/documen ... index.html

[Sunny]

Prüfung ob pausiert, keine Ahnung, wozu soll das gut sein?

will mir einen eigenen kleinen taskmanager zurecht basteln

Mit NET START bekommste eine Auflistung

NET START... Was soll das sein? Noch nie was von gehört...

[ts-soft]

Mit NET START bekommste eine Auflistung

NET START... Was soll das sein? Noch nie was von gehört...

Leere Stelle auf dem Desktop anklicken und F1 drücken (für Windows-Hilfe )
Ansonsten Eingabeaufforderung öffnen und NET HELP oder so ähnlich.
Wenn Dir diese Grundlagen bereits fehlen würde ich mit dem Taskmanager noch ein paar Jahre warten
und erstmal Window-Grundlagen lernen.

Hier ein Beispiel zur Auflistung der laufenden Dienste:

Code: Alles auswählen

EnableExplicit

Define.i net
Define.s service

OpenWindow(0, #PB_Ignore, #PB_Ignore, 640, 480, "gestartete Dienste", #PB_Window_SystemMenu)
ListViewGadget(0, 10, 10, 620, 460)

net = RunProgram("net", "start", "", #PB_Program_Open | #PB_Program_Read | #PB_Program_Hide)
If net
  If ProgramRunning(net)
    While Trim(ReadProgramString(net)) <> ""
    Wend 
    Repeat
      service = Trim(ReadProgramString(net))
      If service
        OemToChar_(service, service)
        AddGadgetItem(0, -1, service)
      EndIf
    Until Not service
  EndIf
  CloseProgram(net)
EndIf

While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend

Gruß
Thomas

[Sunny]

jaja, irgendwie gibts bei mir in dem bereich ziemlich große wissenslücken...

aber danke für die hilfe