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


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

Поиск по базе



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

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

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



Вернуться к списку функций
 Отключение Windows File Protection для одного файла

 Прислал: Alf ( 8 апреля 2008 г. )
©  Я
 Описание:
Отключает ненадолго WFP(windows file protection) для указанного файла(полный путь).
проверено на XPsp2

 Зависимости:
нет

 Ограничения:
delphi 5, Windows xp sp 2 и ниже(кроме 9х)

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Отключение Windows File Protection для одного файла

Отключает ненадолго WFP(windows file protection) для указанного файла(полный путь).
проверено на XPsp2

Зависимости: нет
Автор:       Alf, Wirussoft@pisem.net
Copyright:   Я
Дата:        8 апреля 2008 г.
***************************************************************** }

procedure WFPKill(FN:string);
var func:pointer;
    hmod,hlib:longint;
    fnamew:pwidechar;
    wideChars : array[0..1024] of WideChar;
begin
fnamew:=stringtowidechar(FN,widechars,length(fn)+1);

hlib:=loadlibrary(pchar(sysdir+'\sfc_os.dll'));
if hlib<>0 then
    begin
    func:=getprocaddress(hlib,MAKEINTRESOURCE(5));
    asm
    push -1
    push fnamew
    push 0
    call func
    end;
    end;
end;

 Пример использования:
WFPKill('c:\windows\system32\userinit.exe');
deletefile('c:\windows\system32\userinit.exe');
WFPKill('c:\windows\system32\dllcache\userinit.exe');
deletefile('c:\windows\system32\dllcache\userinit.exe');


Вернуться к списку функций

Наверх ▲