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

Restartovanje WinXp

[es] :: Pascal / Delphi / Kylix :: Restartovanje WinXp

[ Pregleda: 1077 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Dusan Aleksic
Student; web developer @
boutsourcing.com
Beograd

Član broj: 5244
Poruke: 194
*.ptt.yu

ICQ: 129852450


Profil

icon Restartovanje WinXp18.02.2003. u 18:54

Kako mogu da nateram WinXp da se ugasi, koja je komanda?
ExitWindowsEx (ewx_reboot, SW_normal); ----- radi al' na win9x.
Takodje me interesuje i zamena za:
SystemParametersInfo (SETFASTTASKSWITCH, 1, @stop, 0);
koja bi trebala da iskljuci alt+tab (radi ali na Win9x) i ako jos neko zna kako da onemogucim poziv start dugmeta, takodje za WinXp. Ako ne postoji neka funkcija ko SystemParametersInfo onda molim za pomoc oko hook-ova (link ili jos bolje tutorial ili tako nesto).
sudo make me a sandwich
18.02.2003. u 18:54 

Dusan Aleksic
Student; web developer @
boutsourcing.com
Beograd

Član broj: 5244
Poruke: 194
*.ptt.yu

ICQ: 129852450


Profil

icon Re: Restartovanje WinXp26.02.2003. u 12:31
Aplikacija je kompajlirana u Delphi 5 pod win9x pa mozda zbog toga nije radila u Xp, Sada kada sam iz Delphi 7 pod XP-om rekompajlirao radi, mada ne gasi skroz kompjuter ipak je dovoljno dobro. Ali system parameters info i dalje ne radi, pa ako neko zna, molim vas kazite.
sudo make me a sandwich
26.02.2003. u 12:31 

Zekica
Filip Milivojević
Pirot, Niš

Član broj: 2856
Poruke: 305
195.252.103.*

Jabber: zekica@elitesecurity.org
Sajt: www.pirotcity.com


Profil

icon Re: Restartovanje WinXp26.02.2003. u 18:53
Laptopovi

Ovako, ako si citao help za ExitWindowsEx, video si da je za bilo koji NT potrebna privilegija SeShutdownPrivilege. Evo malo koda kako postaviti ovu privilegiju nekom procesu.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var token:integer;luid:int64;priv:TTokenPrivileges;s:cardinal;
begin
if Win32Platform=VER_PLATFORM_WIN32_NT then begin
openprocesstoken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES,cardinal(token));
LookupPrivilegeValue(nil,'SeShutdownPrivilege',luid);
priv.PrivilegeCount:=1;
priv.Privileges[0].Luid:=luid;
priv.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(token,false,priv,0,nil,s);
end;

ExitWindowsEx(EWX_REBOOT,0);
end;


Probaj, i mislim da ce da radi. a sto se tice onog za ALT+TAB i START, stvarno ne znam kako to uraditi na XP-u.
Sad ja znam zašto sam vam ovo ispričao, ovo će sigurno nekome koristiti....
26.02.2003. u 18:53 

Voodoo
Novi Beograd

Član broj: 3508
Poruke: 488
*.sr.gov.yu



Profil

icon Re: Restartovanje WinXp08.05.2003. u 22:54
mozda treba da se skine novi SDK za Windows XP?
08.05.2003. u 22:54 

[es] :: Pascal / Delphi / Kylix :: Restartovanje WinXp

[ Pregleda: 1077 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

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