| 
| 
 | Вопрос # 5 899/ вопрос решён / | 
 |  Здравствуйте, подскажите как удалить файл, другие удаляются а этот не хочет (:вот код:
 
 procedure TMac.FormDestroy(Sender: TObject);
begin
if gin = true then begin
Agent1.Characters.Unload('MyAgent');
SysUtils.DeleteFile('Mac.avi'); // Удаляем временное avi
//SysUtils.DeleteFile(Put.Caption); // Удаляем временного агента
//if FileExists(Put.Caption) then SysUtils.DeleteFile(Put.Caption); // Удаляем временного агента
end;видео удаляется а вот файл агента нет ((
 
|  |   Вопрос задал: casio (статус: Посетитель)Вопрос отправлен: 19 января 2012, 22:03
 Состояние вопроса: решён, ответов: 0.
 |  
 Мини-форум вопросаВсего сообщений: 10; последнее сообщение — 9 февраля 2012, 17:04; участников в обсуждении: 5. 
|   | casio (статус: Посетитель), 19 января 2012, 22:22 [#1]:должно удалятся по нажатию по Esc 
 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
      if Key = VK_ESCAPE then
       begin
           Application.Terminated;    
        end;
end; |  
|   | Ерёмин А.А. (статус: *Администратор), 19 января 2012, 23:00 [#2]:Может он просто используется какой-то запущенной программой? |  19 января 2012, 23:02: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с файловой системой модератором Ерёмин А.А. 
|   | casio (статус: Посетитель), 19 января 2012, 23:23 [#3]:Ерёмин А.А.: ага видно что используется уже протестировал на кнопке с начало выгрузил,а потом удалил. Но по идеи он же должен выгружаться сам в коде? 
 procedure TMac.FormDestroy(Sender: TObject);
begin
Agent1.Characters.Unload('MyAgent');
end; |  
|   | Ерёмин А.А. (статус: *Администратор), 19 января 2012, 23:45 [#4]:По идее должен. Unload точно вызывается перед DeleteFile? |  
|   | casio (статус: Посетитель), 20 января 2012, 00:21 [#5]:Ерёмин А.А.: ну вроде, я нажимаю Esc вызавается Close, а в FormDestroy идет Agent1.Characters.Unload('MyAgent') - выгрузить а потом удалить - SysUtils.DeleteFile('Merlin.acs'); 
 но что то не работает
 |  
|   | Ерёмин А.А. (статус: *Администратор), 20 января 2012, 11:27 [#6]:Попробуйте сделать тоже самое на кнопке — мало ли, что там в момент OnDestroy творится. |  
|   | Мережников Андрей (статус: Абитуриент), 21 января 2012, 07:38 [#7]:может просто не успевает выгружаться до удаления? |  
|   | bugmenot (статус: 3-ий класс), 21 января 2012, 13:49 [#8]:А зачем их вообще каждый раз удалять? виконання програми розпочинається з того самого мiсця, де призупинилося.
 
 |  
|   | Эхо Унитазного Бачка (статус: 1-ый класс), 9 февраля 2012, 01:35 [#9]:SysUtils.DeleteFile('полный путь'); 
 Если не удаляется, значит нет прав на удаление файла на уровне файловой системы.
 
 Если файл типизированный, то скорее всего вы не закрыли файл, это обязательно нужно делать после завершения операций с оным методом System.СloseFile(переменная);
 |  9 февраля 2012, 17:04: Статус вопроса изменён на решённый (изменил автор вопроса — casio) Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |