Сообщение при первом запуске программы - VB

Формулировка задачи:

Как сделать так, чтобы при первом запуске программы, вадавало любое сообщение (MsgBox), а при всех последующих - ничего не вылезало...

Решение задачи: «Сообщение при первом запуске программы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
sub FirstRun()
Dim ret&
on error resume next
ret = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\MyProgram\FirstRun")
on error resume 0
if ret=0 then 
  CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\MyProgram\FirstRun", 1, "REG_BINARY"
  msgbox "Первый запуск"
end if
end sub

Оцени полезность:

14 голосов , оценка 4.071 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы