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

[Ramzes]

Помогите. Надо отловить первый запуск программы на компе, что бы записть инфу в реестер, не будет же она это делать прикаждом запуске. Спасибо.

[WEB_13]

Просто при запуске проги проверять нет ли необходимой записи в реестре, значит первй запуск и создаётся запись, а если есть, то не надо создавать запись!

[Ramzes]

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

[A.A.Z.]

Можно сделать так:

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

Private Sub Form_Load()
Static was As Integer 'При первом запуске was = 0

If was = 0 Then
MsgBox "Первый запуск и всё такое"
was = 1
Else
End If
End Sub


Или так:

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

Private Sub Form_Load()
Dim s As String

Open "C:\Windows\System32\File.dat" For Append As #1 'Если файла нет, то он создастся
Line Input #1, s
If s = "This file had been already opened!" Then 'Если в файле есть такая строка, то закрыть файл
GoTo Closing
Else
Write #1, "This file had been already opened!"
MsgBox "Первый запуск и всё такое"
End If
Closing: Close #1
End Sub


[GSerg]

Люди, вы чего?
Любая прога, чей первый запуск должен отличаться от остальных, при каждом запуске проверяет, не является ли этот запуск первым! Для этого, как правило, в реестр пишется флаг. И я не понимаю смысл фразы "могу записать, а считать трудно". Если неохота работать с апишками реестра, то юзай getsetting и savesetting.

[WEB_13]

Действительно операторов savesetting и getsetting вполне достаточно.
Но если нужно больше зачем API, есть отличная библиотека в составе VB для работы с реестром Registry Access Functions!

[_NeoN_]

Можно сделать так:

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

Private Sub Form_Load()
Static was As Integer 'При первом запуске was = 0

If was = 0 Then
MsgBox "Первый запуск и всё такое"
was = 1
Else
End If
End Sub


кхм, то есть ты думаешь что статическая переменная при перезапуске прграммы сохраняет значение? где интересно?
она сохраняет значение только при одной работе приложения..

[A.A.Z.]

Можно сделать так:

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

Private Sub Form_Load()
Static was As Integer 'При первом запуске was = 0

If was = 0 Then
MsgBox "Первый запуск и всё такое"
was = 1
Else
End If
End Sub


кхм, то есть ты думаешь что статическая переменная при перезапуске прграммы сохраняет значение? где интересно?
она сохраняет значение только при одной работе приложения..

Да, я согласен, переоценил возможности Static...

[Aleksej]

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

if App.hInstance=True Then
' Первый запуск
endif

[A.A.Z.]

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

if App.hInstance=True Then
' Первый запуск
endif

Не работает.

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

Private Sub Form_Load()
If App.hInstance = True Then MsgBox "Первый запуск" Else MsgBox "Не первый запуск"
End Sub


(Выдало "Не первый запуск".)

[MEMBER]

2 Aleksej & A.A.Z
Ребята, вы что курили?

[GSerg]

Похоже на то!
Поясним, пожалуй
Есть проперть previnstance, туды пихается тру, если данная копия программы в данный момент времени в данной системе не является единственной. Используется это для предотвращения запуска двух экземпляров проги из одного экзешника одновременно.
Попробуй, к примеру, повторно запустить api-guide.

[amda]

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

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

Private Sub Form_Load()
Me.Caption = "новое окно"
On Error GoTo launched
VBA.Interaction.AppActivate "Form1"

End
Exit Sub
launched:
If Err.Number = 5 Then
    Me.Caption = "Form1" 'продолжение работы
End If
End Sub


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

[Ramzes]

Мне нужно засечт 30 дней работы программы, и я это сделал, но не записывал в реестер ничего, я просто создал файл, поместил туда дату и время, и при каждом запуске программы я проверяю, дату и время, и если истек срок 30 дне выполняю поставленые действия, тоесть при помоще другой формы котораядолжна запуститься в указаное время, удаляю проект с компютера, а при переустановке Windows мой второй проект удаляеется т.к. находиться в папке Windoows. Способ конечно не очень, но пока тут никто ни чем мне не помог, надеюсь, помогут...