Как удалить используемый файл?

← →
Deleter_low (2004-01-28 15:22) [0]

Подскажите пожалуйста, как удалить файл, который используется? Программно? Ну ООООЧЕНЬ надо!!!

← →
Deleter_low (2004-01-28 16:21) [1]

Хотелось бы именно API функцию для этого... Батник и через RunOnce мне не подходит...

← →
Woodpecker © (2004-01-28 16:34) [2]

Зачем?

← →
Deleter_low (2004-01-28 16:39) [3]

Пишу программу для удаления I-Worm.Mydoom

← →
Agent13 © (2004-01-28 16:43) [4]

А не проще к антивирусу апдейт скачать?

← →
Deleter_low (2004-01-28 16:46) [5]

Нет, хочу сам научиться. Здесь уже дело принципа... :)))

← →
Vit@ly © (2004-01-28 16:50) [6]

Можно попробовать дать себе ссответствующие привелегии, закрыть файл, а затем удалить. Уточнюсь, сам не проверял

← →
Deleter_low (2004-01-28 16:55) [7]

Кажется это делается через ShFileOperation... Я видел где-то это, но где не помню... Млин, так всегда - когда надо фиг найдешь!

← →
Vit@ly © (2004-01-28 17:01) [8]

ИМХО для этого необходимо написать функцию, которая при возможности даст эти привилегии, а затем уже продолжать

← →
Deleter_low (2004-01-28 17:04) [9]

Какие привилегии?

Не моя идея, загляни в ФАК на Форум на Исходниках.Ru
или выложи мыло - перешлю

← →
Deleter_low (2004-01-28 17:11) [11]

Ты здесь выложи. Если авторское просто копирайт поставь.

Function SetPrivilege(aPrivilegeName: String; aEnabled: Boolean ): Boolean;
Var TPPrev,
TP: TTokenPrivileges;
Token: THandle;
dwRetLen: DWord;
Begin
Result:=False;
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);
TP.PrivilegeCount:=1;
IF LookupPrivilegeValue(nil,PChar(aPrivilegeName),TP.Privileges[0].LUID ) then
Begin
IF aEnabled then TP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
else TP.Privileges[0].Attributes:=0;
dwRetLen:= 0;
Result:=AdjustTokenPrivileges(Token,False,TP,SizeOf(TPPrev),TPPrev,dwRetLen);
End;
CloseHandle(Token);
End;

Дык ты ведь дополнительно попросишь и как применять

А что на счет 9х? Насколько я понял, этот пример применим только для НТ подобных систем?

Как удалить используемый файл? Найти похожие ветки