Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.23;
Скачать: CL | DM;

Вниз

Общие вопросы   Найти похожие ветки 

 
sam07   (2005-10-02 20:26) [0]

с помощью какой команды можно перезагрузить систему в delphi 7


 
begin...end ©   (2005-10-02 20:29) [1]

См. в справке описание API-функции ExitWindowsEx.


 
HF-Trade ©   (2005-10-03 03:09) [2]

Procedure PowerOff(Flags: UINT);
var
tokenPriv: TTokenPrivileges;
tokenHandle: THandle;
begin
if (Win32Platform = VER_PLATFORM_WIN32_NT) and
((Flags and (EWX_POWEROFF or EWX_REBOOT or EWX_SHUTDOWN)) <> 0) then
begin
if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES,
TokenHandle) then begin
if LookupPrivilegeValue(nil,"SeShutdownPrivilege",
TokenPriv.Privileges[0].LUID) then
begin
TokenPriv.PrivilegeCount:=1;
TokenPriv.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
if not AdjustTokenPrivileges(TokenHandle,false,TokenPriv,0,
TTokenPrivileges(nil^),DWORD(nil^)) then exit;
end;
end;
end;
ExitWindowsEx(Flags, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
Begin
PowerOff(EWX_ShutDown); //Флаг для выкл питания.
end;

// Флаги -
//EWX_POWEROFF
//EWX_REBOOT
//EWX_SHUTDOWN



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

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

Наверх




Память: 0.47 MB
Время: 0.051 c
10-1105978365
Uran
2005-01-17 19:12
2005.10.23
Выгрузить страницу в отдельный файл.


2-1127476309
Sergey_R
2005-09-23 15:51
2005.10.23
Поиск по узлам TreeView


14-1128371301
yozh_programmer
2005-10-04 00:28
2005.10.23
Помогите найти саундтрэк к рекламе ...


3-1126270174
Alex Kryuchkov
2005-09-09 16:49
2005.10.23
[Microsoft][ODBC Driver Manager] Function sequence error


2-1127819918
saimonz
2005-09-27 15:18
2005.10.23
Delphi 2 C#