Запрет на удаление файлов -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.30]

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...

Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image

MSDN Library user posted image

FAQ раздела user posted image

Поиск по разделу user posted image

Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image

Rouse_,

Krid

Модераторы: Rouse_, Krid

Новое голосование

Запрет на удаление файлов , Как можно отследить удаление файлов через windows

Du-Xa	Сообщ. #31 , 05.01.04, 19:58
Member Профиль · PM Рейтинг (т): 0	А у меня DeleteFileA даже в фаре не работает. И кстати SHFileOperation() откуда эта функция и какие параметры ей нужно передавать? Сообщение отредактировано: Du-Xa - 05.01.04, 21:07

x2er0

Сообщ. #32 , 06.01.04, 09:41

Profi

Профиль · PM

Поощрения: 16 Dgm

Рейтинг (т): 20

{$EXTERNALSYM SHFileOperation}

function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall;

{$EXTERNALSYM SHFileOperationA}

function SHFileOperationA(const lpFileOp: TSHFileOpStructA): Integer; stdcall;

{$EXTERNALSYM SHFileOperationW}

function SHFileOperationW(const lpFileOp: TSHFileOpStructW): Integer; stdcall;

shell32 = 'shell32.dll';

function SHFileOperation; external shell32 name 'SHFileOperationA';

И неужели было самому поглядеть лень?

.alex	Сообщ. #33 , 06.01.04, 10:59
Master Профиль · PM Рейтинг (т): 37	Цитата Du-Xa,5.01.04, 22:58 А у меня DeleteFileA даже в фаре не работает. Странно, у меня всё работает, вот тебе скриншот (обрати внимание на иконку MessageBox'a в трее - она ФАРовская) Прикреплённый файлdel.jpg (152.25 Кбайт, скачиваний: 316)

Du-Xa

Сообщ. #34 , 06.01.04, 12:43

Member

Профиль · PM

Рейтинг (т): 0

Цитата xZero,6.01.04, 12:41

{$EXTERNALSYM SHFileOperation}

function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall;

{$EXTERNALSYM SHFileOperationA}

function SHFileOperationA(const lpFileOp: TSHFileOpStructA): Integer; stdcall;

{$EXTERNALSYM SHFileOperationW}

function SHFileOperationW(const lpFileOp: TSHFileOpStructW): Integer; stdcall;

shell32 = 'shell32.dll';

function SHFileOperation; external shell32 name 'SHFileOperationA';

И неужели было самому поглядеть лень?

А откудова эти цитаты Вы берете?

x2er0

Сообщ. #35 , 06.01.04, 12:58

Profi

Профиль · PM

Поощрения: 16 Dgm

Рейтинг (т): 20

{*******************************************************}

{ }

{ Borland Delphi Run-time Library }

{ Win32 Shell API Interface Unit }

{ }

{ Translator: Borland Software Corporation }

{ }

{*******************************************************}

unit ShellAPI;

Добавлено в 06.01.04, 12:59:
Не посчитайте за рекламу! =)

Добавлено в 06.01.04, 13:01:
Т.е., в основном, это:

Цитата

ShellAPI.pas
Windows.pas

Du-Xa	Сообщ. #36 , 06.01.04, 17:39
Member Профиль · PM Рейтинг (т): 0	И всеже она у меня не работает. Можете мне исходники с Exe выслать пожалуйста.

x2er0	Сообщ. #37 , 06.01.04, 20:22
Profi Профиль · PM Поощрения: 16 Dgm Рейтинг (т): 20	Цитата Du-Xa,6.01.04, 17:39 И всеже она у меня не работает. Можете мне исходники с Exe выслать пожалуйста. Как это исходник c .exe? У тебя какая ось?

Du-Xa	Сообщ. #38 , 07.01.04, 00:02
Member Профиль · PM Рейтинг (т): 0	У меня Windows Mellenium Edition. А исходник с EXE это исходник + откомпилированный файл(лучше без RunTime). Сообщение отредактировано: Du-Xa - 07.01.04, 16:59

x2er0	Сообщ. #39 , 07.01.04, 20:40
Profi Профиль · PM Поощрения: 16 Dgm Рейтинг (т): 20	.alex кинь ему ты, пожалуста, т.к. у тебя вроде как уже откомпилено =)

.alex	Сообщ. #40 , 08.01.04, 10:22
Master Профиль · PM Рейтинг (т): 37	Цитата xZero, 7.01.04, 23:40 .alex кинь ему ты, пожалуста, т.к. у тебя вроде как уже откомпилено =) Не пойму зачем? Чем мои откомпиленные .ехе/.длл будут отличаться от его, сорс то один?

Du-Xa	Сообщ. #41 , 09.01.04, 10:01
Member Профиль · PM Рейтинг (т): 0	Попробую Windows98 поставлю. Может что в Melleniume глючит.

Du-Xa	Сообщ. #42 , 10.01.04, 17:00
Member Профиль · PM Рейтинг (т): 0	Windows98 ничего не пошло тоже!

x2er0	Сообщ. #43 , 11.01.04, 19:47
Profi Профиль · PM Поощрения: 16 Dgm Рейтинг (т): 20	ыыыыыы Что-то ты явно не так делаешь!!!

D[u]fa	Сообщ. #44 , 12.01.04, 03:35
Master Профиль · PM Поощрения: 11 Dgm Рейтинг (т): 112	У меня всё работает, только я заметил глюки 1) Не перехватывает LoadLibraryA 2) Если функция вызывается из запакованного exe(например UPX'om) тогда хук не срабатывает

Du-Xa

Сообщ. #45 , 12.01.04, 11:49

Member

Профиль · PM

Рейтинг (т): 0

Да действительно я паковал Exe AsPack'ом, но с незапакованым ничего не идет тоже! Специально перекомпилировал ради такого случая! Запускаю в Far'е жду окошка и удаляю не закрывая окошка, через Far. Пробовал удалять мимо корзины, эфект тотже!

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

Страницы: (9) 1 2 [3] 4 5 ... 8 9 все

[ Script execution time: 0,0419 ] [ 15 queries used ] [ Generated: 18.07.25, 06:24 GMT ]