Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
will mir einen eigenen kleinen taskmanager zurecht bastelnPrüfung ob pausiert, keine Ahnung, wozu soll das gut sein?
NET START... Was soll das sein? Noch nie was von gehört...Mit NET START bekommste eine Auflistung
Leere Stelle auf dem Desktop anklicken und F1 drücken (für Windows-HilfeSunny hat geschrieben:NET START... Was soll das sein? Noch nie was von gehört...Mit NET START bekommste eine Auflistung
)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