Как запустить программу в моей программе...

[sQx]

Мне нужно что бы окно программы допустим Photoshop было разположено в окне моей программы, это возможно сделать? если да, то как

Заранее благодарен...

[alibek]

Photoshop он ведь MDI, думаю это невозможно. А если возможно, то зацени API SetParent.

[Konst_One]

CjVirys - ну у тебя и прикольный подход
давай теперь все проги к себе понасуй в оболочку и выдавай их за свои

ты хоть бы спросил у Adobe разрешение на такое издевательство над из фотошопом

[sQx]

Как это прогу которую я вселил в свою, можна выдавать за свою?

Как можно убрать копирайт и т.п.?

Мне это нужно совсем для других целей...

Прошу писать по теме, был поставлен конкретный вопрос... и мне нужен ответ, возможно ли такое сделать или нет...

[Amed]

SetParent, alibek же сказал...

[sQx]

Спасибо большое все работает...
То что нужно
Я просто не обратил не внимание...

[sQx]

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

[alibek]

SendMessage/PostMessage

[sQx]

Прошу извинения...
Я не разобрался как работать с этими ф-ми, может поможете? мне нужно именно изменить размеры окна....

[alibek]

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

Private Const SW_MINIMIZE = 6
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Type WINDOWPLACEMENT
        Length As Long
        flags As Long
        showCmd As Long
        ptMinPosition As POINTAPI
        ptMaxPosition As POINTAPI
        rcNormalPosition As RECT
End Type
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Dim Rectan As RECT
Private Sub Form_Load()
    'Tip submitted by pyp99 (pyp99@hotmail.com)
    Dim WinEst As WINDOWPLACEMENT
    Dim rtn As Long
    WinEst.Length = Len(WinEst)
    'get the current window placement
    rtn = GetWindowPlacement(Me.hwnd, WinEst)
    Rectan = WinEst.rcNormalPosition
End Sub
Private Sub Command1_Click()
    Dim WinEst As WINDOWPLACEMENT
    Dim Punto As POINTAPI
    Dim rtn As Long
    'set the new min/max positions
    Punto.x = 100
    Punto.y = 100
    'initialize the structure
    WinEst.Length = Len(WinEst)
    WinEst.showCmd = SW_MINIMIZE
    WinEst.ptMinPosition = Punto
    WinEst.ptMaxPosition = Punto
    WinEst.rcNormalPosition = Rectan
    'set the new window placement (minimized)
    rtn = SetWindowPlacement(Me.hwnd, WinEst)
End Sub


[Sebas]

а не проще пихнуть его как OLE контейнер?

[sQx]

а не проще пихнуть его как OLE контейнер?

Не.. я проверял... через ОЛЕ у меня не работает с Фотошопом...

[sQx]

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

Private Const SW_MINIMIZE = 6
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Type WINDOWPLACEMENT
        Length As Long
        flags As Long
        showCmd As Long
        ptMinPosition As POINTAPI
        ptMaxPosition As POINTAPI
        rcNormalPosition As RECT
End Type
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Dim Rectan As RECT
Private Sub Form_Load()
    'Tip submitted by pyp99 (pyp99@hotmail.com)
    Dim WinEst As WINDOWPLACEMENT
    Dim rtn As Long
    WinEst.Length = Len(WinEst)
    'get the current window placement
    rtn = GetWindowPlacement(Me.hwnd, WinEst)
    Rectan = WinEst.rcNormalPosition
End Sub
Private Sub Command1_Click()
    Dim WinEst As WINDOWPLACEMENT
    Dim Punto As POINTAPI
    Dim rtn As Long
    'set the new min/max positions
    Punto.x = 100
    Punto.y = 100
    'initialize the structure
    WinEst.Length = Len(WinEst)
    WinEst.showCmd = SW_MINIMIZE
    WinEst.ptMinPosition = Punto
    WinEst.ptMaxPosition = Punto
    WinEst.rcNormalPosition = Rectan
    'set the new window placement (minimized)
    rtn = SetWindowPlacement(Me.hwnd, WinEst)
End Sub


Спасибо за функцию SetWindowPlacement
То чно нужно [/b]

[sQx]

Следующая проблема по этой теме....
Как убрать строку там где расположеные кнопки закрыть, развернуть, свернуть?

[tyomitch]

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

SetWindowLong hWnd, GWL_STYLE, Not WS_CAPTION And GetWindowLong (hWnd, GWL_STYLE)

[sQx]

Ага, спасибо разобрался...

[sQx]

У меня возникла еще одна проблема... при использовании этой функции фотошоп зависает? что это может быть?

[sQx]

У меня просто проблема вот в чем....
Строка с названием программы и кнопками закрыть, свернуть и т.п. в разных версия Вин ОС может быть разного размера... даже в ОС одной версии размеры могут быть разными..
Поэтому мне нужно ее уубрать... никаких копирайтов я нарушать не собираюсь - это все в научных целях... но когда я пытаюсь убрать строку, фотошоп зависает.. почему?
Спасибо...

[sQx]

Или может кто подскажет как получить ширину этой полоски?
Немогу разобраться с ф-й GetWindowLong, может есть примеры?
Но желатльно ее вообще убрать...

Зарание благодарен...

[tyomitch]

"Ширина" - это высота, что ли?
Можно через AdjustWindowRect, можно через GetSystemMetrics(SM_CYCAPTION)

[sQx]

GetSystemMetrics(SM_CYCAPTION)
эта ф-я выводит только одно число....
С другой не разобрался...

У меня фотошоп не зависает.. проверил.. просто он стает недоступным.. типа как Enabled его стал False...
Вот что я использую...
SetWindowLong(pWnd, GWL_STYLE, Not WS_CAPTION)

Может есть ф-я айпи, что бы присвоить окну pWnd Енаблед Труе?

[sQx]

оно все таки зависает наверное...
хотя не понятно... я попробывал ф-ю EnableWindow, не помогло...
Может кто знает как другим способом удалить строку с названием программы?

[sQx]

Еще забыл сказать.. когда нажимаю правую кнопку на окне проги которую открыл в моей проге... выскакивает меню типа закрыть, свернуть и т.п., ну обычное меню виндовское...

Спасибо...

[tyomitch]

CjVirys, вместо "SetWindowLong(pWnd, GWL_STYLE, Not WS_CAPTION)" пиши так, как я показал:

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

SetWindowLong hWnd, GWL_STYLE, (Not WS_CAPTION) And GetWindowLong (hWnd, GWL_STYLE)


Иначе ты устанавливаешь ещё и все левые флаги, которых у окна быть не должно.

ЗЫ про "только одно число": а тебе сколько нужно? Высота у рамки только одна...

[sQx]

CjVirys, вместо "SetWindowLong(pWnd, GWL_STYLE, Not WS_CAPTION)" пиши так, как я показал:

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

SetWindowLong hWnd, GWL_STYLE, (Not WS_CAPTION) And GetWindowLong (hWnd, GWL_STYLE)


Спасибо большое... все отлично работает...

Иначе ты устанавливаешь ещё и все левые флаги, которых у окна быть не должно.

ЗЫ про "только одно число": а тебе сколько нужно? Высота у рамки только одна...

Нет.... в том то и проблема что разная... например ХР одна, у 98 другая.. даже у ХР может быть разная.. смотря какой стиль выберешь...

Еще раз спасибо выручил...