| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Я в расстерянности...

Страницы:   < 1 2 >

SleD ©   (2002-06-04 18:35:00) 

Мне нужно 1)перезагрузить компьютер под XP и 2)осуществить под XP спящий режим.
Объясняю ситуацию подробно:

при такой функции:
ExitWindowsEx(EWX_REBOOT or ewx_force,0); - ничего не происходит.
ExitWindows() с параметрами EW_RESTARTWINDOWS, EW_REBOOTSYSTEM, EW_EXITANDEXECAPP - приводит
к ЗАВЕРШЕНИЮ СЕАНСА??

SetSystemPowerState(true, true); - тоже приводит к заверешению сеанса?

Как можно сделать 1) и 2)???

---

ZZ   (2002-06-05 17:28:00) [1]

cм. Song © (05.06.02 10:17) Только вместо ExitWindowsEx SetSystemPowerState

---

SleD   (2002-06-05 17:09:00) [2]

ZZ, можешь написать код?

---

ZZ   (2002-06-05 16:59:00) [3]

А добавить ту-же привилегию не пробовал?

---

SleD   (2002-06-05 16:40:00) [4]

Ну, help somebody!

---

SleD   (2002-06-05 14:53:00) [5]

Pliz^^^^^^^^^^^^^

---

SleD   (2002-06-05 10:23:00) [6]

ОК, а что по поводу спящего режима? У кого не спрашивал - никто не знает.

---

Song   (2002-06-05 10:17:00) [7]

У меня ничего не пишет:
procedure TForm1.Button1Click(Sender: TObject);
Var hToken:
THandle;tkp:
TTokenPrivileges;ReturnLength: Cardinal;
begin
IF OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
Begin
LookupPrivilegeValue(nil, "SeShutdownPrivilege",tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1; // one privelege to set
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
IF AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);
End;
end;

---

SleD   (2002-06-05 10:11:00) [8]

SetSystemPowerState() - не работает, т.к. в XP это приводит к завершению сеанса!

И это не работает (перезагрузка):
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES orTOKEN_QUERY, hToken) then - на этой строке пишет, что
Types of actual and formal var parameters must be identical

---

Song   (2002-06-05 09:56:00) [9]

Перезагрузку я вам дал линк. Спящий режим - SetSystemPowerState()
CAD в XP не выключишь.

---

SleD   (2002-06-05 09:11:00) [10]

HELP Pliz

---

SleD   (2002-06-04 21:39:00) [11]

Просто мне нужно отключить CTRL+ALT+DEL в XP.
Song, если тебе не сложно, ответь пожалуйста насчёт спящего режима и перезагрузки компьютера, просто мне надо уходить, а завтра тогда гляну.

Заранее спасибо!

---

Song   (2002-06-04 21:37:00) [12]

Данная ф-ия не может применяться в 2000,NT или XP

---

SleD   (2002-06-04 21:36:00) [13]

И ещё один вопросик:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";

Из-за этой функции программа под XP вобще отказывается запускаться. Выдаёт ошибку. Выход есть?

---

SleD   (2002-06-04 21:31:00) [14]

Опять проверил и:
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES orTOKEN_QUERY, hToken) then - на этой строке пишет, что
Types of actual and formal var parameters must be identical

---

SleD   (2002-06-04 21:28:00) [15]

OK. А про спящий режим не знаешь?

---

Song   (2002-06-04 21:26:00) [16]

Нашёл я эту статью:
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988621105&n=15

---

SleD   (2002-06-04 20:58:00) [17]

OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, @Token ); - на этой строке пишет, что
Types of actual and formal var parameters must be identical

---

SleD   (2002-06-04 20:43:00) [18]

Big Thanks, Song.

---

Song   (2002-06-04 19:37:00) [19]

Да, действительно админы почему-то удалили эту тему. Ok, получай:

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;



---

SleD   (2002-06-04 19:22:00) [20]

2Song

Не нашёл. :-(

---

Страницы:   < 1 2 >

Наверх