Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
9 / 9 / 12
Регистрация: 17.01.2018
Сообщений: 280
1

Как снять атрибут "Только для чтения" у файла в TSaveDialog?

21.05.2018, 10:37. Показов 1400. Ответов 1
Метки нет (Все метки)

Как это реализовать? Как перехватить до того, как SaveDialog выдаст ошибку?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
var
  i, j: integer;
  doc: file;
begin
  SaveDialog1 := TSaveDialog.Create(self);
  SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName) + 'Templates\' + IntToStr(n) + 'x' + IntToStr(n) + '\User templates\';
  if SaveDialog1.Execute then
    begin
      SetFileAttributes(PWideChar(SaveDialog1.FileName), faNormal); //до этого момента программа не доходит
      AssignFile(doc, SaveDialog1.FileName); //так как SaveDialog выдает ошибку об атрибуте только для чтения
      try
        Rewrite(doc);
      except
        ShowMessage('Невозможно перезаписать файл');
        exit;
      end;
      for i := 0 to n - 1 do
        for j := 0 to n - 1 do
          begin
            BlockWrite(doc, life[i, j], 1);
            BlockWrite(doc, age[i, j], 1);
          end;
      CloseFile(doc);
      SetFileAttributes(PWideChar(SaveDialog1.FileName), faReadOnly);
    end
  else
    abort;
  SaveDialog1.Free;
  StaticText2.SetFocus;
  DrawGrid1.Refresh;
  CheckerOfCells;
end;
Миниатюры
Как снять атрибут "Только для чтения" у файла в TSaveDialog?  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2018, 10:37
Ответы с готовыми решениями:

Как снять атрибут папки "только для чтения" в Windows 8 ?
Добрый день ! Подскажите, как снять атрибут "только для чтения" для папок и вложенных в них файлов...

Снять атрибут "только для чтения" на флэхе
Сразу отмету банальные ответы типа "сдвинь ползунок" или "перепрошей" - атрибут поставлен не на...

Для всех файлов, кроме текстовых, установить атрибут "Только для чтения", а для текстовых — атрибут "Архивный"
Здравствуйте, Очень прошу помочь написать мне программу. Задание:В заданной папке для всех файлов,...

Как снять с папки - галку "Только для чтения"
Подскажите с решением непростой проблемы. Пытаюсь в свойствах папки - снять эту галочку - ноль...

1
9 / 9 / 12
Регистрация: 17.01.2018
Сообщений: 280
21.05.2018, 12:40  [ТС] 2
Проблема решилась заменой SaveDialog на OpenDialog с заменой заголовка окна, чтобы без палева
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2018, 12:40

Как написать программу в ассемблере, которая переименовывает файл и ставит атрибут "только для чтения"
Нужно написать программу, которая переименует мой файл и установит нанем атрибут "только для...

Атрибут "пароль для изменения" и рекомендовать "только для чтения"
здравстуйте, какими параметрами можно добавить в макрос Workbook_BeforeSave параметр "пароль для...

Переименовать текстовый файл и установить на нем атрибут "Только для чтения"
В ассемблере ничего не понимаю просто сказали написать программу, помогите кто сможет буду...

Не меняется атрибут "Только для чтения"
У мня на каждой папке ползователя ни с того, ни с сего появился атрибут "только для чтения" на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru