в фотошопе, это-ж просто окошки (MDI приложения), а вот чтобы ехе прилепить... это надо поизвращяться... Единственно что могу сказать, что проще прилепить себя к какой-то программе, чем ее к себе...

Ответить

Как вариант, если программа твоя, можно создавать у себя дочерние окна, передавать их хандл стороннему ЕХЕшнику, чтобы он на них отрисовывал... Попробуй поэкспериментировать с SetParent, но, скорее всего, это ничего не даст...

Ответить

nu pochemuzhe ne srabotaet?srabotaet, da eshe kak! ya vot proboval, tak zapuskal Explorer.exe, cherez Shell, poluchal ego hWnd, i govoril SetParent na formua nashu eto hWnd. vse rabotal prekrasno, tol`ko esli ty zakryvaesh` svoe okno, to tot Explorer net, tak chto ego nado vrushnuyu TerminateProcess'om ili WM_QUIT posylat` emu, ili che-to tak takoe. A vobshe rabotaet, nado tol`ko poeksperimentirovat`.....

Udachi

Ответить

nu pochemuzhe ne srabotaet?srabotaet, da eshe kak! ya vot proboval, tak zapuskal Explorer.exe, cherez Shell, poluchal ego hWnd, i govoril SetParent na formua nashu eto hWnd. vse rabotal prekrasno, tol`ko esli ty zakryvaesh` svoe okno, to tot Explorer net, tak chto ego nado vrushnuyu TerminateProcess'om ili WM_QUIT posylat` emu, ili che-to tak takoe. A vobshe rabotaet, nado tol`ko poeksperimentirovat`.....

Udachi

Ответить

2 AASoft

А код можешь представить, пожалуйста? Ну примерно. А то очень надо свой проект доделать

P.S.

2 sne

Ну это понятно Просто, более доступного примера для народа на ум не пришло

Ответить

a pochemu zhe net?na, lovi:

Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Dim Prog_hWnd as Long
Dim Me_hWnd as Long

Private Sub Form_Load()

Me_hWnd = Me.hWnd
Prog_hWnd = Shell("explorer.exe",vbnormalfocus")
if Prog_hWnd  <> 0 then
  If SetParent(Prog_hWnd, Me_hWnd) <> 0 Then
    'Succeded
    Me.Caption = "Explorer.EXE war run and it is now in YOUR form!"
  Else
    'Failed
    Me.Caption = "Explorer.EXE war run, but failed to get set in YOUR form!"
  End If
Else
  Me.Caption = "Explorer.EXE war NOT run!"
End If

End Sub

Private Sub Form_Unload(Cancel as integer)
DestroyWindow Prog_hWnd 
unload me
end
End Sub

P.S. Ya ne uveren chto eto srabotaet, tak kak shas sizhu ne doma, VB6.0 netu, tak chto ........vobshem pridu domoj, proveryu, i napishu eshe raz esli ne srabotaet.udachi

Ответить

ne moe, s allapi.net, no vse zhe......

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Const GW_HWNDNEXT = 2
Dim mWnd As Long
Function InstanceToWnd(ByVal target_pid As Long) As Long
    Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
    'Find the first window
    test_hwnd = FindWindow(ByVal 0&, ByVal 0&
    Do While test_hwnd <> 0
        'Check if the window isn't a child
        If GetParent(test_hwnd) = 0 Then
            'Get the window's thread
            test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
            If test_pid = target_pid Then
                InstanceToWnd = test_hwnd
                Exit Do
            End If
        End If
        'retrieve the next window
        test_hwnd = GetWin

Ответить

Спасибо за помощь Код я сейчас проверю (оба)

Ответить

2 AASoft

Ниодин код не работает 1й ваще не понял в чём гемор 2й пишет, что ЕХЕшка загружена, но не влезла в форму Может мне нужно какие-то свойства форме изменить... или оюъект вставить какой-нить (у меня пустая форма), а?

Ответить

ups, sorry, izvini  blin. pervyj i ne dolzhen rabotat`, on ne pravil`nyj s rozhdeniya, ...mnoj napisan...gy.

da vot, a vtoroj ne vlez, shas ssylku dam, posmotrish. u menya rabotal, nichego menyat` ne nado. rabotaet pravda v XP in 2k.

ssylochka vot:

http://www.mentalis.org/apilist/56C1BBA2F17A9ED35A1B54D4462EB24C.html

izvini eshe raz za ne vlezhshij kod...

kstati, ento mne napomnilo:Pavel, kogda budem ves` sajt na tochku perevodit`. pomnica ty mne tama zadanie daval, tak ono gdeto u menya sdelanoe valyaetsya, a design ty mne tak i neprislal. davaj- ka, shli. a to ono der`movo smotricca.

Ответить

Во, спасибо Код щас проверю

А в скомпиленном виде тоже только в ХР\2к работать будет? Мне то пофигу - у меня 2 оси стоят ХР и 98 А вот народу, для которого я всё это делать буду - не пофигу

Ответить

Опять не работает Как я понял из кода

test_hwnd = FindWindow(ByVal 0&, ByVal 0&)

переменная test_hwnd - хэндл окна... Я попробую окно по заголовку искать. А то запускаю в ВБ прогу... ничего не происходит Закрываю прогу - закрывается вся программа VB. Думаю дай-ка скомпилирую проект. Скомпилил, запустил... и она не смогла найти окно Проводника, из которого была запущена

Ответить

zameni "c:\windows\notepad.exe" v proge na "notepad.exe"

i eshe v formu_unload ili gde ono tam pishet

TerminateProcess GetCurrentProcess, 0
 zameni na

unload me

end

vse rabotaet prekrasno. shas eshe raz poproboval v 2k, vse pashet, a v 98 ne idet, govorit operaciya ne razreshena windosom.

Ответить

СПАСИБО БОЛЬШОЕ!!! Ты мне очень помог

Ответить

А у меня все работает

Ответить