Srodne teme
15.11.2001. interesantno
11.12.2001. Delphi
03.10.2002. system() u C# kako?
21.07.2003. Timer
03.11.2003. Delphi i zvuk
09.03.2004. exportovanje funkcija iz FLASH-a
25.08.2004. Ukljucivanje na drugi kompjuter
10.03.2005. motorola v300 settings
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

kako da iskljucim kompjuter preko Delphi aplikacije

[es] :: Pascal / Delphi / Kylix :: kako da iskljucim kompjuter preko Delphi aplikacije

[ Pregleda: 3341 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

brenas
srem

Član broj: 50753
Poruke: 110
*.ptt.yu.



Profil

icon kako da iskljucim kompjuter preko Delphi aplikacije06.03.2005. u 21:15 - pre 198 meseci
Interesuje me da li je moguce iskljuciti kompjuter preko Delphi aplikacije i ako je moguce kako se to radi.Ja sam probao uz pomoc jedne funkcije u Delphiju
(Windows.InitiateSystemShutdown) ali nisam uspeo.Ako je neko upucen u to neka mi pomogne, zamolio bih ga.!
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
213.244.208.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: kako da iskljucim kompjuter preko Delphi aplikacije06.03.2005. u 21:34 - pre 198 meseci
imenjace :)
ovako stoje stvari: moze sa ExitWindowsEx ali da bi ugasio comp potrebno je da tvoja aplikacija ima "prava" da to uradi, inace se samo izloguje iz windowsa. ono sto ja (uspesno) korisim je
Code:

 ShellExecute(Application.Handle, nil, 'shutdown', '-s -t 0', '', SW_HIDE)

dodaj pre toga ShellAPI u uses listu
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

neor
Nenad Orlovic

Član broj: 26828
Poruke: 74
*.metrohive.net.



Profil

icon Re: kako da iskljucim kompjuter preko Delphi aplikacije07.03.2005. u 06:43 - pre 198 meseci
Evo koda sa kojim osim shutdown mozes uraditi i restart, hibernate i logoff na win NT/2000/XP. Za Win9x ti ne treba onaj pocetni deo oko podesavanja privilegija vec samo ExitWindowsEx.
Code:
program off;

uses
  windows;

var
  TokenHandle,ReturnLength: Cardinal;
  NewState: TTokenPrivileges;

begin
  //'SeShutdownPrivilege' {SE_SHUTDOWN_NAME});
  if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, TokenHandle) then
  begin
    try
      NewState.PrivilegeCount := 1;
      LookupPrivilegeValue(nil, 'SeShutdownPrivilege', NewState.Privileges[0].Luid);
      NewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      AdjustTokenPrivileges(TokenHandle, False, NewState, SizeOf(NewState), nil, ReturnLength);
    finally
      CloseHandle(TokenHandle);
    end;
  end;

  //Ostaviti jedan od sledecih redova
  //ExitWindowsEx(EWX_LOGOFF);     //0
  //ExitWindowsEx(EWX_SHUTDOWN);   //1
  //ExitWindowsEx(EWX_REBOOT);     //2
  //ExitWindowsEx(EWX_FORCE);      //4
  ExitWindowsEx(EWX_POWEROFF,0);   //8
  //ExitWindowsEx(EWX_FORCEIFHUNG);//16
  //SetSystemPowerState(False,False); // Hibernate

end.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: kako da iskljucim kompjuter preko Delphi aplikacije

[ Pregleda: 3341 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
15.11.2001. interesantno
11.12.2001. Delphi
03.10.2002. system() u C# kako?
21.07.2003. Timer
03.11.2003. Delphi i zvuk
09.03.2004. exportovanje funkcija iz FLASH-a
25.08.2004. Ukljucivanje na drugi kompjuter
10.03.2005. motorola v300 settings
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.