[es] - Restartovanje WinXp

Dusan Aleksic
Student; web developer @ freelance
Beograd

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

ICQ: 129852450

+5 Profil

Restartovanje WinXp

^{18.02.2003. u 18:54 - pre 257 meseci}

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

Odgovor na temu

Dusan Aleksic
Student; web developer @ freelance
Beograd

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

ICQ: 129852450

+5 Profil

Re: Restartovanje WinXp

^{26.02.2003. u 12:31 - pre 257 meseci}

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

Odgovor na temu

Zekica
Filip Milivojević
Pirot, Niš

Član broj: 2856
Poruke: 309
195.252.103.*

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

+10 Profil

Re: Restartovanje WinXp

^{26.02.2003. u 18:53 - pre 257 meseci}

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....

Odgovor na temu

Voodoo
Novi Beograd

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

+1 Profil

Re: Restartovanje WinXp

^{08.05.2003. u 22:54 - pre 255 meseci}

mozda treba da se skine novi SDK za Windows XP?

Odgovor na temu