Основы VB -  Советы          О программах
Чтобы EXE не был запущен одновременно два раза
Как запустить на VB5.0 исходники, написанные на VB6.0
Kак сделать, чтобы программa перестала работать примерно через 30 дней?
Вызов различных программ
Чтобы Ваш EXE не был запущен одновременно два раза в событие Form_Load впишите:

Private Sub Form_Load()
If App.PrevInstance = True Then
   MsgBox "Проект уже запущен!"
   End
End If

 Назад

Чтобы запустить на VB5.0 исходники, написанные на VB6.0 откройте файл проекта с расширением VBP каким-нибудь текстовым редактором и удалите строки:
Retained = 0
DebugStartupOption = 0

  Назад

 Аздар             

Сделать это очень просто. Сначала нужно либо записать в регистр либо куда-нибудь в папку Windows в файл *.ini, например дату первого запуска. Потом при каждом запуске нужно проверять разницу между текущей датой и датой первого запуска. Например так:

If DateDiff("d", #11/8/99#, Date) > 30 Then ...

'если разница между датой 11 августой 1999 года и текущей
'в днях больше 30, тогда ....

А потом можно просто закрыть программу и всё!

  Назад

  Сергей

Сделать это очень просто! Всего лишь надо вызвать команду Shell с именем нужного файла. Например при нажатии кнопки Command1 должен запускать калькулятор:

Private Sub Command1_Click()
    Call Shell("c:\windows\calc.exe", vbNormalFocus)
End Sub

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

 Назад

 

Используются технологии uCoz