Функция по удалению сервисов и очистка реестров.

Требуется функция с исходником на delphi 7.0.

Под систему: Windows XP/NT/2003/2000, как Professional так и Server. (Vista и 9x не обязательны)

Первая функция:

1. Цель: Функция должна удалять один процесс в системе Windows, согласно указанного параметра. С корректной обработкой невозможности прекращения процесса. Возвращает код ошибки.

2. Функция должна иметь подробные комментарии на русском языке

3. Название функции: function ServiceStop(const _service_name: string): integer;

4. Функция должна работать в собственном, отдельном потоке, не останавливая программу, которая ее вызывает.

Для примера нужно добиться успеха, чтобы функция останавливала такие процессы как ICQ и MailAgent или другие подобные.

Программа не вирус :). А требуется отключить данные программы автоматически на рабочих местах в офисе. Чтобы работники работали, а не «балду» пинали по аськам и играм.

Вторая функция:

1. Цель: Функция должна удалять все имеющиеся ключи в реестре, автоматически запускающие, какие либо пользовательские программы. Останавливать СЛУЖЕБНЫЕ сервисы Windows не требуется. То есть что бы не разрешенные программы не запускались.

2. Функция должна иметь подробные комментарии на русском языке

3. Название функции: function RegisterClear(const _keys: TStringList): integer;

4. В параметре передаются те программы, которые удалять из автозапуска НЕ нужно!

Другие варианты (поднять AD) не принимаются по имеющимся на то причинам. Нужен именно этот вариант.

Программа без комментариев, даже в рабочем состоянии оплачиваться не будет.

Спецу в этой сфере, работы на 1 час.

Форма оплата по безопасной сделке. Комиссионные на мне.