Ĺadny brzuch
To moj pierwszy post wiec witam wszystkich :)
Czy istnieje taka mozliwosc w pascalu aby po jego uruchomieniu komputer sie zresetowal albo wylaczyl? Jesli tak to moglby mi ktos wskazac jak to zrobic?
... begin exec('shutdown -s -h'); // mam nadzieję, że dobre parametry :) end.
uses dos; {$M $4000,0,0} begin swapvectors; exec('c:\windows\system32\shutdown.exe','-r -t 0'); swapvectors; end.To jest na restart, żeby wyłączyć zmień "-r" na "-s" :)
Nie dziala, nie pokazuje bledow ale nic sie nie dzieje :(
Aha uzywam win98 jesli to moze byc powod.
Użytkownik dzonybrawo edytował ten post 05 luty 2006, 12:34
Nie dziala, nie pokazuje bledow ale nic sie nie dzieje :(
Aha uzywam win98 jesli to moze byc powod. Bo to było dla xp, dla win98 spróbuj tak (nie mogłem przetestować):
wyłączenie ->exec('c:\windows\system\rundll32.exe','user,ExitWindows' );szybki restart ->exec('c:\windows\system\rundll32.exe','user,ExitWindowsExec' );
Tez nie dziala, probowalem zmienic tez sciezke do pliku rundll32.exe bo u mnie on jest na glownym windows, ale wtedy wywala mi ze ,,this program cannot be run in DOS mode".
Tez nie dziala, probowalem zmienic tez sciezke do pliku rundll32.exe bo u mnie on jest na glownym windows, ale wtedy wywala mi ze ,,this program cannot be run in DOS mode". W windowsie nie powinieneś otrzymać takiego komunikatu, odpalałeś to w dosie? :>
odpalam to w windowsie, myslalem ze nie mam modulu dos.int ale mam, wiec juz nie wiem co moze byc przyczyna...
Edit: mam pascala 7.0
Użytkownik dzonybrawo edytował ten post 05 luty 2006, 13:16
Bo to było dla xp, dla win98 spróbuj tak (nie mogłem przetestować):
wyłączenie ->exec('c:\windows\system\rundll32.exe','user,ExitWindows' );szybki restart ->exec('c:\windows\system\rundll32.exe','user,ExitWindowsExec' );
W Windows 98 plik Rundll32.exe znajduje sie w katalogu Windows a nie Windows\System, nie ma funkcji ExitWindowsExec jest ExitWindowsEx. Chyba coś nie przytomny jesteś dzisiaj, czyżby wczoraj była jakaś impreza? 98 teraz nie mam i nie mogłem tego sprawdzić (windows\system\ czy windows\), a funkcja ExitWindowsExec istnieje, za to ExitWindowsEx nie :>
Użytkownik Cyrkiel edytował ten post 05 luty 2006, 13:46
Teraz dziala wielkie dzieki panowie :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Czy istnieje taka mozliwosc w pascalu aby po jego uruchomieniu komputer sie zresetowal albo wylaczyl? Jesli tak to moglby mi ktos wskazac jak to zrobic?
... begin exec('shutdown -s -h'); // mam nadzieję, że dobre parametry :) end.
uses dos; {$M $4000,0,0} begin swapvectors; exec('c:\windows\system32\shutdown.exe','-r -t 0'); swapvectors; end.To jest na restart, żeby wyłączyć zmień "-r" na "-s" :)
Nie dziala, nie pokazuje bledow ale nic sie nie dzieje :(
Aha uzywam win98 jesli to moze byc powod.
Użytkownik dzonybrawo edytował ten post 05 luty 2006, 12:34
Nie dziala, nie pokazuje bledow ale nic sie nie dzieje :(
Aha uzywam win98 jesli to moze byc powod. Bo to było dla xp, dla win98 spróbuj tak (nie mogłem przetestować):
wyłączenie ->exec('c:\windows\system\rundll32.exe','user,ExitWindows' );szybki restart ->exec('c:\windows\system\rundll32.exe','user,ExitWindowsExec' );
Tez nie dziala, probowalem zmienic tez sciezke do pliku rundll32.exe bo u mnie on jest na glownym windows, ale wtedy wywala mi ze ,,this program cannot be run in DOS mode".
Tez nie dziala, probowalem zmienic tez sciezke do pliku rundll32.exe bo u mnie on jest na glownym windows, ale wtedy wywala mi ze ,,this program cannot be run in DOS mode". W windowsie nie powinieneś otrzymać takiego komunikatu, odpalałeś to w dosie? :>
odpalam to w windowsie, myslalem ze nie mam modulu dos.int ale mam, wiec juz nie wiem co moze byc przyczyna...
Edit: mam pascala 7.0
Użytkownik dzonybrawo edytował ten post 05 luty 2006, 13:16
Bo to było dla xp, dla win98 spróbuj tak (nie mogłem przetestować):
wyłączenie ->exec('c:\windows\system\rundll32.exe','user,ExitWindows' );szybki restart ->exec('c:\windows\system\rundll32.exe','user,ExitWindowsExec' );
W Windows 98 plik Rundll32.exe znajduje sie w katalogu Windows a nie Windows\System, nie ma funkcji ExitWindowsExec jest ExitWindowsEx. Chyba coś nie przytomny jesteś dzisiaj, czyżby wczoraj była jakaś impreza? 98 teraz nie mam i nie mogłem tego sprawdzić (windows\system\ czy windows\), a funkcja ExitWindowsExec istnieje, za to ExitWindowsEx nie :>
Użytkownik Cyrkiel edytował ten post 05 luty 2006, 13:46
Teraz dziala wielkie dzieki panowie :)