| Цитата(Baha_Ahmed @ 19.2.2010, 20:11) | | Цитата(Akina @ 15.2.2010, 22:47) | В папке создать файл desktop.ini приблизительно такого содержания:
| Код |
[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=12
|
Желательно дать ему атрибуты +h+s |
Спасибо за подсказку, вот мой код, только он что то не работает
| Код |
Dim i
Dim arr(0 To 2) As String
arr(0) = "[.ShellClassInfo]"
arr(1) = "IconFile=%SystemRoot%\system32\SHELL32.dll"
arr(2) = "IconIndex=12"
MkDir App.Path & "\папка"
Open App.Path & "\папка\desktop.ini" For Output As #1
For i = 0 To 2
Print #1, arr(i)
Next i
Close #1
|
что тут не правильно? |
вот еще хочу папки придать иконку ехе файла из ... не получается что то, то становится папка такой, то нет
| Код |
Dim arr(0 To 6)
arr(0) = "[.ShellClassInfo]"
arr(1) = "IconFile=%ProgramFiles%\игры разума\plays of the reason.exe"
arr(2) = "IconIndex = 0"
arr(3) = "[.ShellClassInfo.A]"
arr(4) = "IconFile=%ProgramFiles%\игры разума\plays of the reason.exe"
arr(5) = "[.ShellClassInfo.W]"
arr(6) = "IconFile=+ACU-ProgramFiles+ACUAXAQYBDMEQARL- +BEAEMAQ3BEMEPAQwAFw-plays of the reason.exe"
MkDir App.Path & "\ïàïêà"
Open App.Path & "\ïàïêà\desktop.ini" For Output As #1
For i = 0 To 6
Print #1, arr(i)
Next i
Close #1
|
короче что глючит, но не пойму что, помогите если что  |
