Текущий архив: 2003.08.07;
Скачать: CL | DM;

Вниз

как программно выключить компьютер с Win XP?   Найти похожие ветки 

← →
Sergey   (2003-06-05 04:34) [0]

Не мог ли бы кто-нибудь мне посказать, как программно выключить комп с Win XP. ExitWindowsEx не помогает. Спасибо

---

← →
Suntechnic ©   (2003-06-05 05:33) [1]

>Sergey (05.06.03 04:34)
ExitWindowsEx не помогает

Помогает, если правильно использовать. Из help:

To shut down or restart the system, the calling process must use the AdjustTokenPrivileges function to enable the SE_SHUTDOWN_NAME privilege. For more information, see Running with Special Privileges.

---

← →
Merfi   (2003-06-05 06:36) [2]

если нк трудно приведи реальный код.

---

← →
Suntechnic ©   (2003-06-05 06:41) [3]

>Merfi
Извини, но под заказ пишу только за деньги.
Помочь?... это пожалуйста. Напиши код исходя из той информации которую получил, и вот если не будет работать, тогда мы всем форумом посмотрим что там не так...

...или подожди пока альтруисты проснуться :)

---

← →
Ghost   (2003-06-05 07:25) [4]

http://www.pisoft.ru/locker/artik/shutdown.zip

Исходники проги для выключения компа под XP

---

← →
Yanis ©   (2003-06-05 08:25) [5]

Привилегии нужны.

function SetPrivilege(aPrivilegeName : string;
aEnabled : boolean ): boolean;
var
TPPrev,
TP : TTokenPrivileges;
Token : THandle;
dwRetLen : DWord;
begin
Result := False;
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES
or TOKEN_QUERY, @Token );
TP.PrivilegeCount := 1;
if( LookupPrivilegeValue(nil, PChar( aPrivilegeName ),
TP.Privileges[ 0 ].LUID ) ) then
begin
if( aEnabled )then
TP.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
else
TP.Privileges[0].Attributes:= 0;
dwRetLen := 0;
Result := AdjustTokenPrivileges(Token,False,TP,
SizeOf( TPPrev ),
TPPrev,dwRetLen );
end;
CloseHandle( Token );
end;
function WinExit( iFlags : integer ) : boolean;
// возможные флаги:
// EWX_LOGOFF
// EWX_REBOOT
// EWX_SHUTDOWN
begin
Result := True;
if( SetPrivilege( "SeShutdownPrivilege", true ) ) then
begin
if( not ExitWindowsEx( iFlags, 0 ) )then
begin
Result := False;
end;
SetPrivilege( "SeShutdownPrivilege", False )
end
else
begin
Result := False;
end;
end;



---

Страницы: 1 вся ветка

Текущий архив: 2003.08.07;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.017 c