Читайте также:
|
В этом примере мы учитываем тот факт, что при определении свободного места свойство FreeDiskSpace, во-первых, возвращает значение в байтах, а во-вторых - максимальное значение, возвращаемое функцией, не превышает 2,147,483,647 байт, то есть 2048 Мб или 2 Гб. Для получения значения в мегабайтах мы делим полученное значение на 1024 во второй степени.
Tasks - работа с запущенными приложениями
09-09-Tasks.docm - пример к п. 9.5.15.
Это свойство возвращает коллекцию Tasks, которая дает доступ ко всем приложениям, запущенным в системе. Давайте рассмотрим пример работы с приложением Notepad.exe (Блокнот), которое представлено в системе процессом Блокнот. Напишем программу (листинг 9.33.), которая проверяет, запущен ли Блокнот, если запущен - выводит сообщение "Блокнот уже запущен", активирует его окно. Если Блокнот не запущен - запускает его, сообщив об этом.
If Application.Tasks.Exists("Блокнот") = True Then
MsgBox ("Блокнот уже запущен")
With Tasks("Блокнот")
.Activate
.WindowState = wdWindowStateMaximize
End With
Else
MsgBox "Запускаем Блокнот..."
Shell ("Notepad.exe")
With Tasks("Блокнот")
.Activate
.WindowState = wdWindowStateMaximize
End With
End If
Листинг 9.33. Работа с внешним приложением из MS Word (html, txt)
Дата добавления: 2015-07-25; просмотров: 65 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| RecentFiles - недавно открытые файлы | | | Листинг 9.36. Объявляем новую объектную переменную (html, txt) |