[Delirium]

Uzvern, вы там винду новую пишете?

Как программно изменить свойства папки (сменить значок) ? »

один из вариантов:
desktop.ini в папке:
[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=22
Примерно так. Создать файл и запихать туда нужные строки.

А вообще посмотрите функции Shell, там должно это быть.

The following example shows how to set a window icon. (Window.Icon Property) // Set an icon using code Uri iconUri = new Uri("pack://application:,,,/WPFIcon2.ico", UriKind.RelativeOrAbsolute); this.Icon = BitmapFrame.Create(iconUri);

[Uzvern]

Ну вот написал код, но чет он не пашет (Все создает, ноиконку не меняет) :

Код:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Do While IO.Directory.Exists("C:\" & i)
            i += 1
        Loop

        MkDir("C:\" & i)

        Try
            If IO.File.Exists("C:\" & i & "\desktop.ini") Then
                IO.File.SetAttributes("C:\" & i & "\desktop.ini", IO.FileAttributes.Normal)
            End If

            Dim File As Integer = FreeFile()
            FileOpen(File, "C:\" & i & "\desktop.ini", OpenMode.Output)
            PrintLine(File, "[.ShellClassInfo]")
            PrintLine(File, "IconFile=%SystemRoot%\system32\SHELL32.dll")
            PrintLine(File, "IconIndex=25")
            FileClose(File)

            IO.File.SetAttributes("C:\" & i & "\desktop.ini", IO.FileAttributes.System)
            IO.File.SetAttributes("C:\" & i & "\desktop.ini", IO.FileAttributes.Hidden)

            Shell("explorer /select, C:\" & i, AppWinStyle.NormalFocus)

            End
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            End
        End Try
    End Sub
End Class

[Delirium]

Да, действительно, просто создание файла desktop.ini не дает нужного результата. Об этом писали здесь .
Похоже, единственные вариант - использовать функции Shell, пример использования(на делфи) есть здесь. Если брать VB или C#, то описание задано в
статье MSDN :

SHGetSetFolderCustomSettings Function Sets or retrieves custom folder settings. This function reads from and writes to Desktop.ini.

[Uzvern]

Как можно изменить размеры верхней (главной) строки программы (Где название, иконка, кнопки закрытия/максимизации/минимизации) ?

Скрин

Например вот с такого

до такого, если вообще возможно...

[Admiral]

Эта строка называется TitleBar, её параметры устанавливаются в настройках Виндовса, значения можно получить командой MsgBox(SystemInformation.CaptionHeight.ToString)
или
Dim TitlebarHeight As Integer = Me.Height - Me.ClientSize.Height - Me.Width + Me.ClientSize.Width
MsgBox(TitlebarHeight)
Как вариант решения можно создать свою аналогию, перерисовав графику, но стоит ли тогда вообще строить квадратно подобные формы? Если не стоит, то вот как примерно такое окно можно построить, по готовому нарисованному рисунку.
Так же пример по С#.

[Uzvern]

А как-то можно изменить размеры CaptionHeight?
По нарисованому рисунку не интерестно. Я хочу именно CaptionHeight изменить

[Admiral]

Uzvern, в том то и дело что SystemInformation.CaptionHeight параметр только для чтения, его можно косвенно (меняя Color Sheme) через это окно затрагивая все оконные приложений Виндовс.

[Uzvern]

Admiral, а как тогда тут сделано оО

[Admiral]

Uzvern, я этот скрин ещё в предыдущем посте смотрел, и прикинул что это организовывается аналогично тому, как инсталлятор Висты/2008 рисуется в ХР/2003 >>. Может в одном из ресурсов данной программы и лежит рамка этого окна.

Приблизить к такому эффекту в новом проекте может следующий код

Код:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ShowIcon = False
        Me.Text = ""
        Me.MaximizeBox = False
        Me.MinimizeBox = False
    End Sub

на ХР этот код даёт такой эффект.

читать дальше »

[Uzvern]

Admiral, либо я что-то не понял, либо ты. У меня стоит Aero. как ты видишь, окно подвергается эффектам Aero. Т.е. это не нарисованая форма, а просто растянутый на всю прогамму TitleBar
На ХР-шке окно не прозрачное!