Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Управление ОС


Добавить код в данный раздел
 Возвращает handle Процесса из оперативки по имени exe файла

function GetProcessByEXE(exename:string):thandle;

Прислал: Alf ( 8 апреля 2008 г. )
Количество просмотров: 578


 Отключение Windows File Protection для одного файла

procedure WFPKill(FN:string);

Прислал: Alf ( 8 апреля 2008 г. )
Количество просмотров: 510


 Блокировка Диспетчера Задач в Win NT/2000/XP (Ctrl+Alt+Del)

procedure DisableTaskMgr(Disable:Boolean);

Прислал: Голубь Павел (Kirovograd) ( 14 октября 2003 г. )
Количество просмотров: 4340


 Коректное завершение работы любой версии Windows

function GetWinVersion: String;

Прислал: Danillo ( 16 марта 2003 г. )
Количество просмотров: 3523


 Прячется от трех клавиш

procedure TForm1.Button1Click(Sender: TObject);

Прислал: Mirage (Mirag) ( 15 ноября 2002 г. )
Количество просмотров: 3568


 Переход в Спящий режим (WinNT)

Procedure NTSleep;

Прислал: DeMoN-777 (Санкт-Петербург) ( 21 сентября 2002 г. )
Количество просмотров: 2913


 Показ и скрытие TaskBara

procedure ShowTaskBar(t: boolean);

Прислал: Gua (Simferopol) ( 23 июля 2002 г. )
Количество просмотров: 2762


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

procedure ChangeWallpaper(Path: String);

Прислал: Gua (Simferopol) ( 18 июля 2002 г. )
Количество просмотров: 2773


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

procedure ChangeWallpaper(Path:PWideChar);

Прислал: Gua (Simferopol) ( 18 июля 2002 г. )
Количество просмотров: 2443


 Power off (Убивает процессы)

procedure Shutdown2;

Прислал: DeMoN-777 (Санкт-Петербург) ( 21 июня 2002 г. )
Количество просмотров: 3268


 Перезагрузка в WinNT (Убивает процессы)

procedure reboot2;

Прислал: DeMoN-777 (Санкт-Петербург) ( 21 июня 2002 г. )
Количество просмотров: 2586


 Перезагрузка в WinNT (не убивает процессы)

procedure reboot;

Прислал: DeMoN-777 (Санкт-Петербург) ( 21 июня 2002 г. )
Количество просмотров: 2466


 Переход в ждущий режим под WinNT

Procedure NTSleep;

Прислал: DeMoN-777 (Санкт-Петербург) ( 21 июня 2002 г. )
Количество просмотров: 2323


 Power off (не убивает процессы)

procedure ExitWinNT(AShutdown: Boolean);

Прислал: DeMoN-777 (Санкт-Петербург) ( 21 июня 2002 г. )
Количество просмотров: 2437


 Инсталляция/удаление сервисов под НТ.

function CreateNTService(ExecutablePath,ServiceName: String):boolean; function DeleteNTService(ServiceName: String):boolean;

Прислал: Alex Kantchev ( 19 июня 2002 г. )
Количество просмотров: 4650


 Частичная блокировка/разблокировка функций клавиатуры и мышки.

unit mklu

Прислал: VID (Махачкала) ( 3 июня 2002 г. )
Количество просмотров: 3913


 Блокировка/Разблокировка системы.

unit locksys

Прислал: VID (Махачкала) ( 26 мая 2002 г. )
Количество просмотров: 4019


 Переключение раскладки клавиатуры для приложения

function ChangeLayout(LANG: Integer): Boolean;

Прислал: Dimka Maslov (Санкт-Петербург) ( 21 мая 2002 г. )
Количество просмотров: 3065


 Завершение работы WinNT/2000

procedure Shutdown

Прислал: Дмитрий Баранов (Москва) ( 07 мая 2002 г. )
Количество просмотров: 3145


 Завершение процесса

Function KillProcess(pid:integer):boolean;

Прислал: Gua (Simferopol) ( 05 мая 2002 г. )
Количество просмотров: 3309


 Изменение разрешения экрана

procedure ChangeDisplayResolution(x, y : word);

Прислал: Ajax ( 27 апреля 2002 г. )
Количество просмотров: 3249




Добавить код в данный раздел

Наверх ▲