Скачать: CL | DM;

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

← →
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]

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

---

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

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

---

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

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

---

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

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;

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

---

← →
TankMan ©   (2004-02-22 22:49) [13]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.02 c