фон папки

[zmeyy]

Всем привет. У меня такой вопрос как в делфи сделать фон папки, чтоб выбираешь картинку и она ставится на фон папки. Буду очень благодарен!!!

[Terran]

Создаёте в папке файл desktop.ini такого содержания:

[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
IconArea_Image=C:\140.jpg
IconArea_Text=0x00000000

И всё. В этой строчке IconArea_Image=C:\140.jpg хранится путь к картинке, которая будет фоновым рисунком.
В коде будет так:

Var
S: TStringList;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
If OpenDialog1.Execute Then
Begin
Edit1.Text:=OpenDialog1.FileName;
S:=TStringList.Create;
S.Clear;
S.Add('[{BE098140-A513-11D0-A3A4-00C04FD706EC}]');
S.Add('IconArea_Image='+Edit1.Text);
S.Add('IconArea_Text=0x00000000');
End;
End;
Procedure TForm1.Button2Click(Sender: TObject);
Begin
If SaveDialog1.Execute Then
Begin
S.SaveToFile(SaveDialog1.FileName);//Сохраняйте файл под именем desktop.ini
End;
End;

[zmeyy]

Спасибо за помощь!!! А как сделать чтоб когда сохраняешь чтоб не надо было писать desktop.ini а просто выбираешь папку где надо картинку вставить и все применить; и еще вопросик как сделать так чтоб когда выбираешь картинку она показывалась в программе и чтоб когда применяешь ее на фон она копировалась в нужное место, а то приходиться постоянно копировать картинку в нужную папку

[Terran]

Uses
   Jpeg;
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);
Var
S: TStringList;
Begin
S:=TStringList.Create;
S.Clear;
S.Add('[{BE098140-A513-11D0-A3A4-00C04FD706EC}]');
S.Add('IconArea_Image='+PChar(ShellTreeView1.Path+'\'+ExtractFileName(Edit1.Text)));
S.Add('IconArea_Text=0x00000000');
CopyFile(PChar(Edit1.Text),PChar(ShellTreeView1.Path+'\'+ExtractFileName(Edit1.Text)),True);
S.SaveToFile(ShellTreeView1.Path+'\desktop.ini');
End;

[DomiNick]

[{BE098140-A513-11D0-A3A4-00C04FD706EC}]

Давно хотел у кого-нибудь спросить... А что эта строка означает? Можно ли её убрать (хотя тогда прописаные в файле настройки не работают) или написать что-то своё?

По идее в папке нужно делать скрытую подпапку "Folder Settings" и размещать дополнительные ресурсы в ней... Например картинку фона, файл "Folder.htt" и что там ещё бывает-то..?

А ещё можно настраивать "Рисунок папки" - надо создать в папке скрытый файл под именем "Folder.gif".....

Ну и ещё что-нибудь...

[zmeyy]

Что-то не получается какие здесь коспоненты используются, подскажите

[zmeyy]

Все получилось вроде

[Terran]

А что эта строка означает?

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

[DomiNick]

эта строка называется имя секции файла.

Хм..... А оно всегда будет одинаково..?


Про "Рисунок папки":

Создание рисунка папки вручную

Чтобы вручную создать рисунок, который будет использоваться при отображении папки в режиме «Эскизы страниц», создайте файл с желаемым изображением в формате GIF (Graphics Interchange Format), назовите его Folder.gif и поместите в требуемую папку. Для создания файла в формате GIF можно использовать любые средства редактирования изображений.

Но можно же и это автоматизировать...

Я сам всё подумывал создать подобную программу, но как-то руки всё не доходят...

[Terran]

Хм..... А оно всегда будет одинаково..?

На сколько я заметил, то да.