| Вопрос: Реестр... | Добавлено: 17.09.05 20:22 |
Автор вопроса:  Alexander
|
|
где в реестре находится информация по положению панели задач на экране, т.е. откуда система считывает в какой именно стороне находится панель.
И если у кого есть справочник более полный чем от А.Климова пожалуйста вышлите на мыло tranzistori@mail.ru |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #1 | Добавлено: 17.09.05 21:01 |
|
Эх..
Regedit: HKEY_CURRENT_USER\ Software\Microsoft\Windows\CurrentVersion\ Policies\Explоrer Параметр : SetTaskbar зы Дальше сам разберешся... |
||
|
Номер ответа: 2 Автор ответа:  AlexanderВопросов: 19 Ответов: 118 |
Профиль | | #2 | Добавлено: 17.09.05 22:08 |
|
ээээ....
толи я слепой толи винда глючная, но SetTaskbar я там не вижу, какой параметр создавать? binary, dword, или другие? |
||
|
Номер ответа: 3 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #3 | Добавлено: 17.09.05 22:14 |
|
А его там первоначально и не должно быть..
... Создавай не сам SetTaskBar 
- SetTaskBar со значением 1 параметр DWord - это установить ТаскБар - NoSetTaskBar со значением 1 параметр DWord - это убрать ТаскБар ... Таким-же образом устанавливай положение taskbar'a ... Вроде-бы
|
||
|
Номер ответа: 4 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #4 | Добавлено: 17.09.05 22:20 |
|
Вот я тупой ламер !!
Зачем-же тебе реестр ?? Размещай на проэкте кнопку и: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Const tBarClass = "Shell_TrayWnd" Dim tBarHwnd As Long Dim tBarRect As RECT Private Sub Command1_Click() ' узнать handle ТаскБара tBarHwnd = FindWindow(tBarClass, "" 
If tBarHwnd = 0 Then MsgBox "Указанное окно не найдено!", 0 Else ' Окно найдено, идет определение местоположения taskbar GetWindowRect tBarHwnd, tBarRect If tBarRect.Left = -2 And tBarRect.Top > -2 Then ' Taskbar внизу экрана MsgBox "Taskbar is at the bottom of the screen.." End If If tBarRect.Left > -2 And tBarRect.Bottom = Screen.Height / Screen.TwipsPerPixelY + 2 Then ' Taskbar справа от экрана MsgBox "Taskbar is aligned at the right of the screen.." End If If tBarRect.Bottom <> Screen.Height / Screen.TwipsPerPixelY + 2 And tBarRect.Right = Screen.Width / Screen.TwipsPerPixelX + 2 Then ' Taskbar сверху экрана MsgBox "Taskbar is at the top of the screen.." End If If tBarRect.Right <> Screen.Width / Screen.TwipsPerPixelX + 2 And tBarRect.Bottom = Screen.Height / Screen.TwipsPerPixelY + 2 Then ' Taskbar слева от экрана MsgBox "Taskbar is aligned at the left of the screen.." End If End If End Sub |
||
|
Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 18.09.05 00:34 |
|
ну принцип тот, высчитать и так можно, но именно этот код у меня не пашет Он так и не определил где у меня таскбар. Видать это из за тех "+2"...
|
||
|
Номер ответа: 6 Автор ответа: AlexanderВопросов: 19 Ответов: 118 |
Профиль | | #6 | Добавлено: 18.09.05 09:09 |
|
нифига подобного, это бинарное значение, находится
здесь: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2 параметр называется Settings. |
||
Страница: 1 |