[ Dusan Aleksic @ 18.02.2003. 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).
[ Dusan Aleksic @ 26.02.2003. 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.
[ Zekica @ 26.02.2003. 18:53 ] @
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.
[ Voodoo @ 08.05.2003. 22:54 ] @
mozda treba da se skine novi SDK za Windows XP?