фон папки

[zmeyy]

Это все понятно, а у меня возник вопрос: я хочу сделать чтоб можно было иконку менять и шрифт это как мне сделать? Ведь по идее мне нужно каждый раз редактировать конкретную строчку то удалять, то изменять как это сделать с 2 конкретными строчками и еще надо сделать кнопку удалить, чтоб нажимаешь напротив например фона и он удаляет фон. Вот так. Вы мне очень помогли, особенно Terran.

[Nemez]

[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
iconarea_image=Catalog.jpg
IconArea_Text=0x00999999
IconArea_TextBackground=0x00FFFFFF
[.ShellClassInfo]
IconFile="Catalog.ico"
IconIndex=0
InfoTip=Моя любимая папка!

Расшифровка параметров:
iconarea_image=картинка фона папки (если вместо пути только имя, то файл берётся из самого данного каталога)
IconArea_Text=цвет шрифта названия в html формате (шестнадцатиричном)
IconArea_TextBackground=цвет фона названия в html формате (шестнадцатиричном)
IconFile=файл с иконкой (значком) (или простой, с одной иконкой (.ico); или библиотека исконок в ресурсном файле (.exe,.dll,.icl, другие))
IconIndex=порядковый номер иконки в файле (нужно, если в IconFile=указана библиотека иконок, если простой файл (.ico), то всегда =0)
InfoTip=комментарий отображаемый во всплывающей подсказке

[NetSpace]

{BE098140-A513-11D0-A3A4-00C04FD706EC}
эти секции файла, кажись, где-то в реестре обитают. когда искал, где службы прописаны, наткнулся. там таких ключей полно.

[zmeyy]

Что-то прога у меня сперва работала нормально, потом начала через раз работать, а сейчас работает только на флешке. Только на флешке вставляет картинку. Если так смотреть в папке есть ini файл с нужным текстом и картинка присутствует, но не делает. Если делать скаченной прогой код ini файла тот же, но та прога делает, а у меня с тем же кодом не делает. Я что-то слышал что надо папку в которой меняешь фон системной делать что ли? Может кто слышал? И как сделать папку системной?

[zmeyy]

Да надо задать папке в которой меняешь фон атрибут системный. Подскажите пожалуйста как это сделать

[DomiNick]

Я что-то слышал что надо папку в которой меняешь фон системной делать что ли? Может кто слышал? И как сделать папку системной?

Про это уже говорилось...

Сообщение от Terran

Немного ещё добавлю, а то сразу забыл сказать. Если после всех операций в папке не появляется фон, то установите этой папке атрибут системной папки.

Попробуй так:

FileSetAttr('C:\полный путь\к папке', 1);

[Terran]

И как сделать папку системной?

Можете через командную строку:

Attrib +s "C:\..."

[zmeyy]

А как мне в коод проги вставить?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ShellCtrls, ExtCtrls, Jpeg, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ShellTreeView1: TShellTreeView;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  S: TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  If OpenDialog1.Execute Then
Begin
Edit1.Text:=OpenDialog1.FileName;
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
End;
procedure TForm1.Button2Click(Sender: TObject);
begin
S:=TStringList.Create;
S.Clear;
S.Add('[{BE098140-A513-11D0-A3A4-00C04FD706EC}]');
S.Add('Attributes=1');
S.Add('IconArea_Image='+PChar(ShellTreeView1.Path+'\'+ExtractFileName (Edit1.Text)));
S.Add('IconArea_Text=0x00000000');
S.Add('IconArea_TextBackground=0x00FFFFFF');
S.Add('[.ShellClassInfo]');
S.Add('InfoTip=http://files-x.ru/');
S.Add('[ExtShellFolderViews]');
S.Add('{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}');
S.Add('{5984FFE0-28D4-11CF-AE66-08002B2E1262}={5984FFE0-28D4-11CF-AE66-08002B2E1262}');
CopyFile(PChar(Edit1.Text),PChar(ShellTreeView1.Path+'\'+ExtractFileName(Edit1.Text)),True);
S.SaveToFile(ShellTreeView1.Path+'\desktop.ini');
End;
end.

Это получается когда выбираешь папку и сохраняешь мне нужно присвоить адрес сохраняемой папки к атрибуту. А как это сделать?

[Terran]

Для изменения атрибутов лучше использовать код, который предложил DomiNick.

...
S.SaveToFile(ShellTreeView1.Path+'\desktop.ini');
FileSetAttr(ShellTreeView1.Path+'\',1);
End;

[zmeyy]

И мне надо сделать кнопку смены цвета шрифта. Чтоб нажимаешь на кнопку выбираешь цвет шрифта и применяешь. Ведь эта строчка отвечает за выбор шрифта, но я же не буду каждый раз создавать заново ini файл мне надо менять только эту строчку. Помогите пожалуйста!!!