|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Удаление программы после её закрытия
Проверка диска при запуске:
PHP код:
Можно конечно сделать так: PHP код:
В общем как удалить программу после процедуры Application.Terminate? Form1.Close и Close здесь не работают. DeleteFile(ParamStr(0)) после и перед Application.Terminate тоже не работает. P.S. Желательно без использования батников, т.к. они и командная строка запрещены в учётной записи пользователя. Последний раз редактировалось Sky.NET, 02.10.2010 в 12:59. |
#2
|
||||
|
||||
Ну удалить себя можно (как я знаю) через батник. Ну можно его не создавать, а тупо все записать в себя и выполнить...:
Код:
uses ShellApi; procedure TForm1.FormDestroy(Sender: TObject); var f: textFile; FileName: string; begin FileName := changefileext(paramstr(0), '.bat'); assignFile(f, FileName); rewrite(f); writeln(f, ':1'); writeln(f, format('Erase "%s"', [paramstr(0)])); writeln(f, format('If exist "%s" Goto 1', [paramstr(0)])); writeln(f, format('Erase "%s"', [FileName])); closefile(f); ShellExecute(Handle, 'Open', PChar(FileName), nil, nil, sw_hide); end; Ну а вот тут про нужную тебе функцию, может поможет: http://www.delphisources.ru/pages/fa...Drive.php.html Помогаю за Спасибо |
Этот пользователь сказал Спасибо v1s2222 за это полезное сообщение: | ||
denchik232 (27.05.2013)
|
#3
|
||||
|
||||
Спасибо, работает.
Но тут используется командная строка. Я попробовал отключить командную строку и обработку командных файлов у себя на компьютере, но командные файлы по прежнему работают... Это значит, что их нельзя отключить или то, что я использую учётную запись администратора? |
#4
|
||||
|
||||
Скорее всего, из-за второго.
Помогаю за Спасибо |