Запуск приложений

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
BOBO4KA
Сообщения: 8
Зарегистрирован: 28 янв 2005, 04:04
Контактная информация:

Можно ли как то запускать приложения(программы) в ОПРЕДЕЛЕННОМ месте рабочего стола?
может есть какая то функция?
BOBO4KA
Сообщения: 8
Зарегистрирован: 28 янв 2005, 04:04
Контактная информация:

Народ плиз очеь надо...я слышал что как то можно задать положение запускаемой программы..
Аватара пользователя
Игорь Акопян
Сообщения: 1440
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

нечем проверить, но обычно у формы приложения должно быть св-во Left и Top, и плюс к ним Width и Height
Изображение
Дмит
Сообщения: 145
Зарегистрирован: 27 ноя 2004, 22:23
Контактная информация:

Могу предложить пример на 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
но надо знать заголовок окна заранее("Безымянный - Блокнот")
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Еще, вместо Shell можно воспользоваться CreateProcess, там можно передать по ссылке структуру с координатами, так что можно сразу запускать приложение с нужным окном.
Ответить