Вопрос по свойствам папки

[ЧИЖ]

Я по приколу написал прогу которая пишет файл Desktop.ini (может настраивать картинку фона, цвет текста и иконку). Проблема: если папка уже содержала такой файл и была настроена из под системы свойства применяются, если папка была "девственная" файл есть но свойства не применены (аттрибуты файла такие же как у системного) я думаю - это из-за того что при установке свойст папки в файловой системе или еще гдето прописывается некоторый коментарий или чтото вроде того, но я не знаю как его прописать (все учебники перерыл, не нашел) подскажите пожалуйста.

[ЧИЖ]

Извиняйте не дождался ответа сам перерыл весь инет - нашел ответ на свой вопрос(скачал пояснение с сайта исходников)



для справки - это пишется так:



setfileattribute(pchar('сторока пути к папке'),file_attribute_system);



почти так же как и для файла, только в учебниках не указано))))))))

[Колядин Максим]

Я что-то не понял в чём проблема. (была настроена из под системы свойства применяются, , если папка была "девственная" файл есть но свойства не применены).Тебе что, файлу Desktop.ini нужно присвоить аттрибут "системный"? Или у тебя проблема с заменой системного файла? Вот я только что сделал эту прогу на паскале - и нет никаких проблем.

Код: Выделить всё

  USES CRT, dos;
  var f: text;
  ImageDir, FolderDir, Stext: string;

  begin
  clrscr;
  write('Путь к папке: ');
  readln(folderdir);
  write('Путь к картинке: ');
  readln(imagedir);
  write('Текст, отображаемый при наведении на папку: ');
  readln(Stext);
  chdir(folderdir);
  imagedir:='iconarea_image='+imagedir;
  Stext:='InfoTip='+Stext;
  assign(f, 'desktop.ini'); {$I-}rewrite(f); {$I+}
  IF IOResult<>0 then begin
  setFattr(f, 6 and not 6);
  rewrite(f);
  end;
  writeln(f,'[{BE098140-A513-11D0-A3A4-00C04FD706EC}]');
  writeln(f,imagedir);
  writeln(f,'IconArea_Text=0x0040FF00');                {зелёный}
  writeln(f,'[.ShellClassInfo]');
  writeln(f, Stext);
  setFattr(f, 6);
  close(f);
  Write('Выполнено успешно!!!!!');
  readkey;
  end.

[Колядин Максим]

Извиняюсь - нажал "Отправить ответ", обновилось, а ты уже ответил...