Страница 1 из 1
Запуск приложений
Добавлено: 03 фев 2005, 16:32
BOBO4KA
Можно ли как то запускать приложения(программы) в ОПРЕДЕЛЕННОМ месте рабочего стола?
может есть какая то функция?
Добавлено: 04 фев 2005, 15:38
BOBO4KA
Народ плиз очеь надо...я слышал что как то можно задать положение запускаемой программы..
Добавлено: 04 фев 2005, 16:57
Игорь Акопян
нечем проверить, но обычно у формы приложения должно быть св-во Left и Top, и плюс к ним Width и Height
Добавлено: 04 фев 2005, 18:47
Дмит
Могу предложить пример на API
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Dim hwnd As Double
Sub Bloknot()
Call Shell("Notepad", vbNormalFocus)
hwnd = FindWindow(vbNullString, "Безымянный - Блокнот")
Call MoveWindow(hwnd, 300, 0, 400, 400, True)
End Sub
Он запустит блокнот с определёнными размерами(400.400) и в точке - 300,0
но надо знать заголовок окна заранее("Безымянный - Блокнот")
Добавлено: 21 фев 2005, 01:10
Naeel Maqsudov
Еще, вместо Shell можно воспользоваться CreateProcess, там можно передать по ссылке структуру с координатами, так что можно сразу запускать приложение с нужным окном.