| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как программно выключить компьютер с Win XP? [D6, WinXP]
Sergey © (2003-06-05 04:34:00)Не мог ли бы кто-нибудь мне посказать, как программно выключить комп с Win XP. ExitWindowsEx не помогает. Спасибо
Yanis (2003-06-05 08:25:00) [1]Привилегии нужны.
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;
Ghost (2003-06-05 07:25:00) [2]http://www.pisoft.ru/locker/artik/shutdown.zip
Исходники проги для выключения компа под XP
Suntechnic (2003-06-05 06:41:00) [3]>Merfi
Извини, но под заказ пишу только за деньги.
Помочь?... это пожалуйста. Напиши код исходя из той информации которую получил, и вот если не будет работать, тогда мы всем форумом посмотрим что там не так...
...или подожди пока альтруисты проснуться :)
Merfi (2003-06-05 06:36:00) [4]если нк трудно приведи реальный код.
Suntechnic (2003-06-05 05:33:00) [5]>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.
| |
