Логика регистрации файла - VB

Узнай цену своей работы

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

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

Proga.exe /команда

так вот.. я хочу внести туда еще три команды

r+

=Зарегить при условии что эта dll не зарегестрированна

u+

=Отменить рег. только при условии что не этой прогой было регестрированно

u-

=Отменить при условии... затем удалить !

uz+

=Извлеч при условии что если это dll(ocx) и если она не зареганна... как правильно организовать логику регистрации файла
Подозреваю что при выполнении регистраций придёться гдето хранить записи, то что было сделанно... вот я и хочу узнать как правильно и где их хранить чтоб не оказаться потом криворуким програмистом... и не удалить по неосторожности важные компоненты для системы...
...вобщем буду делать так... хранить гдето отдельно, например в системной папке специальный файл, в котором будет только список тех компонентов которые зарегала эта прога, в этом случае восстановление системы будет следить за этим файлом... при регистрации компонента сначало будет проверяться зареган ли этот компонент, и только если он никак не зареган только тогда будет добавленна запись в этот список... при отмене-же регистрации, сначало будет просматриваться список... и если в списке есть эта запись то только тогда можно отменить, и удалить эту запись... как-то так.. наверное... я конечно сомневаюсь..

Решение задачи: «Логика регистрации файла»

textual
Листинг программы
Option Explicit
 
Sub Main()
    Dim s$
    s = InputBox("Введите имя своей DLL на примере ниже..", , "shell32.dll")
    MsgBox "GUID = " & CLSIDFromFile(s)
End Sub
 
'Private Sub Form_Load()
'    Dim s$
'    s = InputBox("Введите имя своей DLL на примере ниже..", , "shell32.dll")
'    MsgBox "GUID = " & CLSIDFromFile(s)
'End Sub
 
Public Function CLSIDFromFile(sFile As String) As String
   Dim tliapp As Object
   Dim tli As Object
   On Error GoTo Out
    Set tliapp = CreateObject("TLI.TLIApplication")
   Set tli = tliapp.TypeLibInfoFromFile(sFile)
   CLSIDFromFile = tli.GUID
Out:
 End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 3.889 из 5