Установка атрибутов файлу в ShellListView

[artemavd]

Не могу установить атрибут выбранному файлу:

procedure TForm1.CheckBox6Click(Sender: TObject);
begin
 if Form1.CheckBox6.Checked = True then
 begin
  FileSetAttr(ExtractFileName(Form1.StatusBar2.Panels[2].Text),faReadOnly);
 end;
end;

Поправьте меня пожалуйста? Где я на косячил?)

[Пепел Феникса]

FileSetAttr(ExtractFileName(Form1.StatusBar2.Panels[2].Text),FileGetAttr(ExtractFileName(Form1.StatusBar2.Panels[2].Text)) and faReadOnly);

а если так?

[artemavd]

Нет, не канает, дружище (. Атрибут не устанавливается.

[Noor]

А вот так попробуй

procedure TForm1.CheckBox6Click(Sender: TObject);
begin
 if Form1.CheckBox6.Checked = True then
 begin
 SetFileAttributes(PAnsiChar(Form1.StatusBar2.Panels[2].Text),faReadOnly);
 end;
end;

[artemavd]

Нет, так тоже не работает

[Noor]

0_o у меня все работает.
У тебя StatusBar состоит из скольки Panels?
Может у тебя их 2 и ты обращении ко второй Panels[2], но счет начинается с 0.
1- Panels = Panels[0]
2- Panels = Panels[1]
Исходник в студию !

Вот то что получается у меня

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
     if Form1.CheckBox1.Checked = True then
        begin
SetFileAttributes(PAnsiChar(Form1.StatusBar1.Panels[2].Text),faReadOnly);
        end;
end;

Создай на диске 'C' файл temp.txt и попробуй вложение

[raxp]

просто уточнить:
1- если напрямую путь прописать, тоже не работает?
2- файл не занят другим процессом? (глянуть можно unlock-ром)

[Пепел Феникса]

кстати в моем коде надо or а не and