Подложка

[yaklit]

Мне нужно чтобы окно было под другими окнами, как Рабочий стол (Explorer.exe DESKTOP), в поиске искал, но нарыл только НАД другими окнами.
Помогите, пожалуйста...

[BV]

WS_EX_NOACTIVATE

[yaklit]

Чето я не нашел такой константы и API которая ее юзает... Можно поподробней?

[lister]

Чето я не нашел такой константы и API которая ее юзает...

Мда... интересно, где ты ее искал

Поиск по слову WS_EX_NOACTIVATE, например в яндексе, дает кучу ссылок по этой теме и самая первая - тебе и нужна

Код: Выделить всё

Private Const WS_EX_NOACTIVATE As Long = &H8000000&

WS_ указывает на то, что это константа стиля окна

EX_ указывает на то что это расширенный стиль, поэтому устанавливать его нужно с помощью GWL_EXSTYLE и SetWindowLong

Код: Выделить всё

Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long

[yaklit]

Блин Можно Пример?

[lister]

Блин Можно Пример?

Блин можно... Пример тоже...

Типа того...

Код: Выделить всё

Private Sub Form_Load()
    SetWindowLong Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) + WS_EX_NOACTIVATE
End Sub

P.S. И заведи себе ApiViewer!

[yaklit]

первый твой пост читал до того как ты его редактировал вот и прошу пример. а так Большое спасибо.

[lister]

Я уж так и понял...

[inf]

офф топ
2lister где взять этот АпиВьювер??? И можно пару ссылочек где подробно и ясно описаны Api и как с ними работать?

[Amed]

www.mentalis.org
Скачай программу API-Guide

[yaklit]

api viewer есть в стандартной поставке Visual Basic 6
Api Guide плоха тем что там только апи и нет констант а тоб темы этой не было...

[inf]

спс огромное. Скачал. Уже юзаю

[lister]

офф топ
2lister где взять этот АпиВьювер???

Ох, народ... А почему в раздел "Популярные вопросы" не заходим???
http://bbs.vbstreets.ru/viewtopic.php?t=11721

api viewer есть в стандартной поставке Visual Basic 6

Мда??? Что-то не верится... Ты его с Api Text Viewer путаешь. Его лучше не использовать.

Api Guide плоха тем что там только апи и нет констант а тоб темы этой не было...

Зато хороша тем, что там есть примеры.

[yaklit]

[keks-n]

Э... А не мог бы уважаемый yaklit объяснить смысл столь содержательного поста?

[yaklit]

эээ ну чо то глюкнуло. Я писал пост:
Как сделать, чтоб при появлении форма уже была внизу Z Order. Константа BOTTOM мне не очень помогает - по моем из за нее форменная некликабельность теряется.

[yaklit]

Вот это НЕ Работает.
Приложение должно запускаться на самом нижнем уровне и быть некликабельным!!! НЕ РАБОТАЕТ.

[Хакер]

Вам случаем, не аналог рабочего стола ли нужен, который будет не TOPMOST а наоборот - BOTTOMMOST ? т.е. не "поверх всех окон", а "все окна поверх этого" ?

Угадал?

[yaklit]

Да, вначале темы написано ж. Ничего не работает. . Кстати это и будет рабочим столом.

[yaklit]

Хакер, а вы случаем не знаете как енто реализовать?

[Хакер]

yaklit
случаем знаю. Попробую сделать пример.

[Хакер]

Вот примерно вот так?

[keks-n]

Поздно. Ему уже в аське всё расписано.

[Debugger]

Как удалить сообщение? Не удаляется!

[yaklit]

Debugger, кому адресован пост и какой его смысл

[keks-n]

Выпендриться.

[Конь]

К тому же до этого также можно было додуматься, смотря в начало темы.

[NashRus]

Вот примерно вот так?

а чего без исходника ? стремно запускать софт от хакера .

[Хакер]

Исходник:

Код: Выделить всё

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

Dim hLastParent As Long

Private Sub Command1_Click()
SetParent Me.hwnd, hLastParent
Unload Me
End
End Sub

Private Sub Form_Load()
Dim hDesktop As Long
hDesktop = FindWindow("Progman", vbNullString)
hLastParent = GetParent(Me.hwnd)
SetParent Me.hwnd, hDesktop
Putfocus Me.hwnd
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
SetParent Me.hwnd, hLastParent
End Sub

Private Sub Form_Resize()
On Error Resume Next
Me.Top = 0
Me.Left = 0
Me.Height = Screen.Height
Me.Width = Screen.Width
End Sub

[ForGserg]Способ не самый лучший, и не самый правильный. Существуют способы и лучше. Юзайте способ на свой страх и риск.[/ForGSerg]

[yaklit]

А что такое Progman Я ж пишу для Windows PE может и не пойти... А вообще пример Хакера ООЧЕНЬ ХОРОШИЙ.