| Вопрос: Самоудаление | Добавлено: 08.11.03 11:58 |
Автор вопроса:  MACROS
|
| Как сделать так, чтобы программа которая запущена смогла себя удалить с компьютера? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  xakep^8 Вопросов: 1 Ответов: 14 |
Профиль | | #1 | Добавлено: 08.11.03 12:04 |
|
Option Explicit Private Sub Command1_Click() '-----------ñîçäàòü bat-ôàéë--------------- Open App.Path + "\Delself.bat" For Append As #1 Print #1, "@echo off" Print #1, ":try" Print #1, "del " + App.EXEName + ".exe" Print #1, "if exist " + App.EXEName + ".exe goto try" Print #1, "del " + App.Path + "\Delself.bat" Close '-------------------------------- Shell App.Path + "\Delself.bat", vbHide End Sub |
||
Страница: 1 |