Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pascal - Restartovanje racunara?!

[es] :: Pascal / Delphi / Kylix :: Pascal - Restartovanje racunara?!

[ Pregleda: 3878 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Boki DX-11

Član broj: 52138
Poruke: 227
80.93.237.*



Profil

icon Pascal - Restartovanje racunara?!28.11.2005. u 23:00 - pre 224 meseci
Ima li neki kod u Pascal-u za restartovanje racunara???!
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Pascal - Restartovanje racunara?!02.12.2005. u 09:04 - pre 223 meseci
Za operativne sisteme zasnovane na DOS operativnom sistemuv(DOS, Win 3.x, Win95...Me) za resetovanje racunara je dovoljno da dodas ovo u kodu
Code:
asm
  jmp ffff:0
end;

Nisam siguran da li je sintaxa Pascalovog ASM ovakva, ali shvatas poentu. Cilj je skociti na adresu FFFF:0 gde se nalazi instrukcija za startovanje programa u BIOS-u i time pocinje reset.

Za sisteme zasnovane na WinNT (WinNt, Win2000, WinXP) ovakav nacin ne uspeva, ali mozes da pozoves program SHUTDOWN koji ce zapoceti gasenje ili resetovanje racunara.
Citat:
Shutdown help:
Usage: shutdown [ -i | -l | -s | -r | -a ] [ -f ] [ -m \\computername ] [ -t xx ] [ -c "comment" ] [ -d up:xx:yy ]

No args Display this message (same as -?)
-i Display GUI interface, must be the first option
-l Log off (cannot be used with -m option)
-s Shutdown the computer
-r Shutdown and restart the computer
-a Abort a system shutdown
-m \\computername Remote computer to shutdown/restart/abort
-t xx Set timeout for shutdown to xx seconds
-c "comment" Shutdown comment (maximum of 127 characters)
-f Forces running applications to close without war
ning
-d [ u ][ p ]:xx:yy The reason code for the shutdown
u is the user code
p is a planned shutdown code
xx is the major reason code (positive integer less than 256)
yy is the minor reason code (positive integer less than 65536)


[Ovu poruku je menjao Srki_82 dana 02.12.2005. u 10:06 GMT+1]
 
Odgovor na temu

Boki DX-11

Član broj: 52138
Poruke: 227
80.93.237.*



Profil

icon Re: Pascal - Restartovanje racunara?!02.12.2005. u 11:27 - pre 223 meseci
Nisam najbolje razumeo, sta tacno treba da unesem izmedju Begin i End...Ovaj prvi red??? Sta da prepravim?!
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Pascal - Restartovanje racunara?!02.12.2005. u 11:33 - pre 223 meseci
Ovako
Code:
procedure ResetDOS;
begin
  asm
    jmp ffff:0
  end;
end;

Jos jednom napominjem, ne znam sintax-u pascal asm pa mozda se mozda asm kod pise drugacije (recimo jmp $FFFF ili tkao nesto).
Code:
procedure ResetNT;
begin
  Exec('shutdown', '-r');
end;

Nemam instaliran pascal na poslu pa pisem napamet, ali to je u sustini to.
 
Odgovor na temu

Boki DX-11

Član broj: 52138
Poruke: 227
80.93.237.*



Profil

icon Re: Pascal - Restartovanje racunara?!02.12.2005. u 16:23 - pre 223 meseci
Ne vredi, ovaj kod ne radi...ne znam zasto!
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Pascal - Restartovanje racunara?!03.12.2005. u 10:29 - pre 223 meseci
Upsss... pardon
Zaboravih da NT ne dozvoljava obicnim DOS programima da pokrecu taj fajl. Evo... ovog puta sam napisao i napravio exe koji 100% radi. Samo prikazuje prozor za gasenje racunara. Ti posle postavi parametar za shutdown koji zelis.
Prikačeni fajlovi
 
Odgovor na temu

Boki DX-11

Član broj: 52138
Poruke: 227
80.93.237.*



Profil

icon Re: Pascal - Restartovanje racunara?!03.12.2005. u 12:05 - pre 223 meseci
OK, exe radi, ali ovaj drugi fajl nece da kompajlije jer prijavljuje gresku "File not found (WINPROCS.TPU)"... zasto to?
Moze li taj program da pokrece, na primer, restart racunara ali bez onog prozora za dijalog?!
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Pascal - Restartovanje racunara?!03.12.2005. u 12:10 - pre 223 meseci
Moze... samo promenis parametar -i u -r. Ne postoji WinProcs.TPU nego WinProcs.TPW. Da bi mogao da pozoves WinNT programcice i tvoj program mora da se bilduje za Win platformu. Pre kompajliranja postavi Target platform na Windows Application i lepo ce raditi. Ako zelis da ti isti program radi i za DOS i za Win onda napravis prvo exe za DOS i postavis ga kao STUB za svoj Win program pa ce OS automatski da pokrene progrgarm koji ume (DOS ce pokrenuti DOS verziju (STUB), a Win ce pokrenuti WIN verziju).
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info


+46 Profil

icon Re: Pascal - Restartovanje racunara?!03.12.2005. u 13:08 - pre 223 meseci
Srki, pojasni to za STUB, uvek sam se pitao kako neki program radi i u DOSu i u Windozi? :)
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Pascal - Restartovanje racunara?!03.12.2005. u 14:08 - pre 223 meseci
Potreban ti je kompajler koji moze da menja STUB. Borlandov Pascal to ne podrzava pa jednostavno WinStub.exe fajl iz Bin foldera zamenis fajlom koji zelis da ti bude STUB i to je to. Imas DOS i Win verziju u jednom fajlu :)
Za kompajlere koji podrzavaju STUB dovoljno je samo da dodas nov fajl sa extenzijom DEF i da upises koji stub zelis... npr:
Code:
NAME        Reset

DESCRIPTION    'Reset WinNT'

EXETYPE     WINDOWS

STUB        'MOJSTUB.EXE'

CODE        PRELOAD MOVEABLE DISCARDABLE
DATA        PRELOAD MOVEABLE MULTIPLE

HEAPSIZE    1024
STACKSIZE    8196


To je ovde offtopic pa ako zelis, otvori novu temu :)
 
Odgovor na temu

Boki DX-11

Član broj: 52138
Poruke: 227
80.93.237.*



Profil

icon Re: Pascal - Restartovanje racunara?!03.12.2005. u 19:56 - pre 223 meseci
Ne znam, ali kad kompajlujem ovaj kod on mi izbaci gresku takvog tipa:

Code:

uses
WinProcs, WinTypes;
Begin
WinExec('shutdown -i',sw_show);
End.


Imam Turbo Pascal, i ovaj kod ne radi...

Sta sad da radim?!

[Ovu poruku je menjao Boki DX-11 dana 03.12.2005. u 20:57 GMT+1]
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Pascal - Restartovanje racunara?!05.12.2005. u 07:58 - pre 223 meseci
Mislim da Turbo Pascal ne moze da kompajlira za Win platformu. Uzmi Free Pascal... totalno besplatan i moze da kompajlira za oko 8 platformi i skoro 100% je kompatibilan sa Turbo Pascalom.
 
Odgovor na temu

Boki DX-11

Član broj: 52138
Poruke: 227
80.93.237.*



Profil

icon Re: Pascal - Restartovanje racunara?!05.12.2005. u 19:33 - pre 223 meseci
TP moze da kompajlira za Windows, ali ovaj u ovom kodu stalno pokazuje gresku...

Skinuo sam Free Pascal i opet isto...
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Pascal - Restartovanje racunara?!05.12.2005. u 21:21 - pre 223 meseci
Kao sto vidis ja mogu da kompajliram to. Ne znam kakvu verziju Pascala imas, ali ja bez problema kompaliram to sa Borland Pascalom.
 
Odgovor na temu

Boki DX-11

Član broj: 52138
Poruke: 227
80.93.237.*



Profil

icon Re: Pascal - Restartovanje racunara?!05.12.2005. u 22:32 - pre 223 meseci
Imas li link sa kojeg si preuzeo taj Pascal...

Ili mi sastavi exe fajl koji odma pokrece restart kompa, bez onog prozora za dijalog!

...tnx...
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Pascal - Restartovanje racunara?!06.12.2005. u 07:30 - pre 223 meseci
Nisam ga preuzeo :)
Kupio sam ga kad je izasao.

Stavicu ti exe koji to radi kad stignem kuci.
 
Odgovor na temu

Boki DX-11

Član broj: 52138
Poruke: 227
80.93.237.*



Profil

icon Re: Pascal - Restartovanje racunara?!07.12.2005. u 20:31 - pre 223 meseci
Uspeo sam da napravim exe koji radi uz pomoc Dev-Pascala...samo sam kod malo izmenio:
Code:

uses
      Windows;
begin
      WinWxec('shutdown -r',SH_SHOW);
end.


To je to...hvala Srki, nista bez tebe...

...thanks jos jednom!!!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pascal - Restartovanje racunara?!

[ Pregleda: 3878 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.