Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Power off (Убивает процессы)
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Power off (Убивает процессы)
Зависимости: Windows
Автор: DeMoN-777, DeMoN-777@yandex.ru, Санкт-Петербург
Copyright: @
Дата: 21 июня 2002 г.
***************************************************** }
procedure Shutdown2;
var
hToken: THandle;
tkp: _TOKEN_PRIVILEGES;
DUMMY: PTokenPrivileges;
DummyRL: Cardinal;
begin
DUMMY := nil
;
if
not
OpenProcessToken(
GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY,
hToken
) then
raise
TShutdownEx.Create('OpenProcessToken failed');
if
(not
LookupPrivilegeValue(nil
, 'SeShutdownPrivilege',
tkp.Privileges[0].Luid)) then
raise
TShutdownEx.Create('LookupPrivilegeValue failed');
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := $0002; //SE_PRIVILEGE_ENABLED = $00002
AdjustTokenPrivileges(hToken, FALSE, tkp, 0, Dummy, DummyRL);
if
(GetLastError() <> ERROR_SUCCESS) then
raise
TShutdownEx.Create('AdjustTokenPrivileges failed');
if
(not
ExitWindowsEx(EWX_SHUTDOWN or
EWX_FORCE, 0)) then
raise
TShutdownEx.Create('ExitWindowsEx failed');
end
;