ADMin Портал!

Партнеры


Профиль



Добро пожаловать,
Гость

54.83.81.52

Регистрация или вход
Потеряли пароль?

Сейчас онлайн
Администраторы:0
Пользователей:0
Гостей:15
Поисковые боты:1

Всего:16

Кнопки




Исходный код

Статьи

Windows
Процедуры и функции для работы с операционной системой

Выключить Windows


Пример выключения Windows 7

uses Windows

function MyExitWindows(RebootParam: Longword): Boolean;

var
TTokenHd: THandle;
TTokenPvg: TTokenPrivileges;
cbtpPrevious: DWORD;
rTTokenPvg: TTokenPrivileges;
pcbtpPreviousRequired: DWORD;
tpResult: Boolean;

const
SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';

begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
tpResult := OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,TTokenHd);
if tpResult then
begin
tpResult := LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME, TTokenPvg.Privileges[0].Luid);
TTokenPvg.PrivilegeCount := 1;
TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
cbtpPrevious := SizeOf(rTTokenPvg);
pcbtpPreviousRequired := 0;
if tpResult then Windows.AdjustTokenPrivileges(TTokenHd, False, TTokenPvg, cbtpPrevious, rTTokenPvg, pcbtpPreviousRequired);
end;
end;

Result := ExitWindowsEx(RebootParam, 0);

end;

Дата публикации: 10.04.2013
Прочитано: 1731 раз

Speeker - звук


Ззаставляем пропищать спикер..

Дата публикации: 23.01.2008
Прочитано: 1775 раз

Как узнать частоту обновления монитора?


Частота обновления монитора? - Функция..

Дата публикации: 25.08.2007
Прочитано: 1994 раз

Автосмена wallpaper на рабочем столе


Исходник для автоматического изменения обоев рабочего стола. Выбор wallpaperа происходит случайным образом из папки, путь к которой указан в настроечном файле DIR.ini.

Дата публикации: 29.07.2007
Прочитано: 2298 раз

ScreenSaver на Delphi


Создание хранителя экрана (ScreenSaver)

Дата публикации: 19.02.2007
Прочитано: 2729 раз

Время, которое работает ОС после запуска


Сколько времени работает ОС после запуска

Дата публикации: 19.02.2007
Прочитано: 1936 раз

ОС и ее версию


Узнать ОС и ее версию

Дата публикации: 19.02.2007
Прочитано: 2188 раз

Путь к автозагрузке


Показать путь к автозагрузке (в меню "пуск")

Дата публикации: 19.02.2007
Прочитано: 2539 раз

Имя пользователя


Узнать имя пользователя ОС

Дата публикации: 19.02.2007
Прочитано: 2571 раз

Выполнить LogOff компьютера


Завершение сеанса пользователя

Дата публикации: 19.02.2007
Прочитано: 2255 раз


Powered by SLAED CMS © 2005-2007 SLAED. All rights reserved.