Ganz nebenbei, was ist der code für das herunterfahren des rechners?

Code: Alles auswählen
Delay(30000)
Code: Alles auswählen
Timer.l = ElapsedMilliseconds()+1000
CountDown.l = 30
SetGadgetText( #MeinCountdown, Str(CountDown) )
Repeat ; Hauptschleife
EventID = WindowEvent()
...
If CountDown > 0
If ElapsedMilliseconds() >= Timer
Timer + 1000
CountDown -1
SetGadgetText( #MeinCountdown, Str(CountDown) )
EndIf
Else
;Counter abgelaufen
EndIf
...
Delay(0)
Until EventID = #PB_Event_CloseWindow ; Ende Hauptschleife
So viel ich weiß gibt es den nicht wirklich, d.h. von betriebssystem zu betriebssystem verschieden.Alves hat geschrieben:Ganz nebenbei, was ist der code für das herunterfahren des rechners?
Code: Alles auswählen
RunProgram(c:/windows/system32/shutdown.exe)
Dann dauert das Herunterfahren noch 30 sec.Alves hat geschrieben:hab jetzt schon für xp gefundenCode: Alles auswählen
RunProgram(c:/windows/system32/shutdown.exe)
Code: Alles auswählen
RunProgram("c:/windows/system32/shutdown.exe","-s -t 0","C:")
Dabei sind aber die Rechte zu erwerben, unter Win2k und höher, ansonstenMarvin hat geschrieben:API: ExitWindowsEx_()