Kako da moj program primeti (i zaustavi ili odlozi za 5-6 sekundi) shutdown/restart proces u Windows-u?
Hvala
Hvala
Potpis
Avram,
http://www.eyesburn.co.sr/
http://www.eyesburn.co.sr/
Shutdown, restart
Zaključano
Zakačeno
windows salje poruku WM_QUERYENDSESSION programima kada se gasi/restartuje. potrebno je da uhvatis tu poruku i odradis sta treba. Ne mozes da odlozis na 5-6 sekundi. Jedino da otkazes (AbortSystemShutdown) ali to povlaci sa sobom neke druge preduslove za koje je pitanje da li ces ih imati...
Jel moze to malo preciznije (recimo code, odnosno procedura)?
Plzzzz
Plzzzz
Potpis
Avram,
http://www.eyesburn.co.sr/
http://www.eyesburn.co.sr/
U programu u unitu glavne forme dodaj:
Code:
....
public
// U public delu glavne forme
procedure Gasenje(var Message: TMessage); Message WM_QUERYENDSESSION;
...
// U implementation delu dodas
procedure TForm1.Gasenje(var Message: TMessage);
begin
// Ono sto zelis da se uradi kada dobijes poruku stavi ovde
end;
....
public
// U public delu glavne forme
procedure Gasenje(var Message: TMessage); Message WM_QUERYENDSESSION;
...
// U implementation delu dodas
procedure TForm1.Gasenje(var Message: TMessage);
begin
// Ono sto zelis da se uradi kada dobijes poruku stavi ovde
end;
Hvala mnogo!
Nisam jos probao, ali znam da ce da radi... Hvatao sam pre neke poruke... nesto kako zameniti celu formu sa captionbar-om... odnosno da form predstavlja caption bar (da mozes da pomeras form)... ali nije ni bitno
HVALA
P.S. A kako da prekinem proces gasenja?
Nisam jos probao, ali znam da ce da radi... Hvatao sam pre neke poruke... nesto kako zameniti celu formu sa captionbar-om... odnosno da form predstavlja caption bar (da mozes da pomeras form)... ali nije ni bitno
HVALA
P.S. A kako da prekinem proces gasenja?
Potpis
Avram,
http://www.eyesburn.co.sr/
http://www.eyesburn.co.sr/
E uspeo sam da prekinem...
Ali u stvari on ga odlozi (WinXP)...
Posle 5-6 sekundi mi izbaci "End Program" i sam ga zatvara...
pogledaj kod:
Nesto tu ne stima... kapirao sam kada sam prvo prikazivao poruku pa onda prekidao shutdown, ali i ovako isto izbacuje...
Ali u stvari on ga odlozi (WinXP)...
Posle 5-6 sekundi mi izbaci "End Program" i sam ga zatvara...
pogledaj kod:
Code:
if directoryexists('a:\') then begin
AbordSystemShutdown('');
showmessage('Yo, imas disketu u floppy-ju'); //nije ovakav originalni kod...
end;
if directoryexists('a:\') then begin
AbordSystemShutdown('');
showmessage('Yo, imas disketu u floppy-ju'); //nije ovakav originalni kod...
end;
Nesto tu ne stima... kapirao sam kada sam prvo prikazivao poruku pa onda prekidao shutdown, ali i ovako isto izbacuje...
Potpis
Avram,
http://www.eyesburn.co.sr/
http://www.eyesburn.co.sr/
Windows prvo proba "fino" da opomene na gasenje. Oni koji se ne odazovu bivaju ugaseni. Sve ovo moze usporiti shutdown ali ga ne odlaze.
Da ne pokrecem novu temu postavio bih jedno pitanje...
postoji li mogucnost nekog coda da prinudno ugasi racunara,znaci kao kada se drzi power dugme 5 sec i ugasi se ceo racinar ????
postoji li mogucnost nekog coda da prinudno ugasi racunara,znaci kao kada se drzi power dugme 5 sec i ugasi se ceo racinar ????
> postoji li mogucnost nekog coda da prinudno ugasi racunara,znaci kao kada se drzi power dugme 5 sec i ugasi se ceo racinar ????
Verovatno će ti biti najlakše pomoću JEDI funkcija, PowerOffOS/ExitWindows u JclMiscel.pas. Ne zaboravi da tvoj proces mora imati prava za gašenje računara.
Verovatno će ti biti najlakše pomoću JEDI funkcija, PowerOffOS/ExitWindows u JclMiscel.pas. Ne zaboravi da tvoj proces mora imati prava za gašenje računara.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Da probao sam sa ExitWindows(EWX_POWEROFF,0) iz JclMiscel.pas ali se ponasa kao redovno gasenje win-a a meni treba da odmah iskljuci napajanje.
Ili sam pogresio u necemu ?
Ili sam pogresio u necemu ?
To što pominješ u vezi 5 sekundi zadrške na Power tasteru je čist hardverski shut-down mašine, koji nema nikakve veze sa OS-om. Možda grešim, ali mislim da takav ultimativni 'programski interfejs' ka hardveru jednostavno ne postoji jer bi bio u suprotnosti sa nekim opštim pravilima u funkcionisanju OS-ova.
Znam da je pritiskom na Power dugme hardverski shut-down mašine ali sam mislio da se mozda moze nekako preskociti Shutdown win-a i da se samo izazove Power OFF.
Moguce je da ne moze.
Moguce je da ne moze.