Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.17.110.58] |
|
Сообщ.
#1
,
|
|
|
Можно написать бат файл
Private Sub Form_Load() 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 End Sub |