Лингрин :: Резиденция Линды Кайе — @дневники: асоциальная сеть

понедельник, 14 апреля 2008

03:04

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2818-14-56
#original-date: 13.04.2008 Sun
#original-time: 2:56 PM
#original-day: 2818
#original-host: WinXP Prof SP2 (Build 2600)

Мда... И маниакальный смех какой-то у Томоё ^^ Вроде в TV такого не было ^^

#video: Card Captor Sakura Movie 2

URL

03:04

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2818-14-38
#original-date: 13.04.2008 Sun
#original-time: 2:38 PM
#original-day: 2818
#original-host: WinXP Prof SP2 (Build 2600)

Томоё в приступе утончённого мазохизма выглядит крайне устрашающе...

#video: Card Captor Sakura Movie 2

URL

03:04

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2818-06-11
#original-date: 13.04.2008 Sun
#original-time: 6:11 AM
#original-day: 2818
#original-host: WinXP Prof SP2 (Build 2600)

Как в Такси 2: я дура! Хотя кто мог знать, то у этого планшета вопреки инструкции есть всёже выбор поворота, но он появляется только когда выбран пустой документ в самом планшете... Повернула, буду привыкать. Зато планшет уместился наконец на столе ^^

А ещё я обновила FAR ^^ Наконец-то, а то руки не доходили уже чёрт знает сколько ^^

Да. И дописала часть плагина для обновления Бэки, ту что на VB. Теперь с интерактивной проверкой всё ясно. А как быть с неинтерактивной? Тоесть как плагину узнать, что программа что-то там нашла? Ибо я хочу выдавать сообщение о том, что подоспело обновление, входящим письмом ^^ Можно и иконкой в трее, но это плохо когда Бэки запущена на втором рабочем столе, где не то что трея, нет панели задач ^^

URL

03:04

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2818-02-17
#original-date: 13.04.2008 Sun
#original-time: 2:17 AM
#original-day: 2818
#original-host: WinXP Prof SP2 (Build 2600)

Что-то с SxS подружиться не удалось (это параллельное выполнение COM компонентов без регистрации), поэтому пришлось самой регистрировать библиотеку, если она ещё не зарегистрирована ^^ Тоесть у меня программа, которая должна проверять обновления Бэки. Она выполняется на любой машине, и требует компонент. Чтобы не заморачиваться, программа проверяет есть ли в системе этот компонет, и если его нет, то регистрирует его, а потом, в конце рабоы разрегистрирует чтобы не оставлять следов и битых ссылок. Вот извращённая реализация этого:

Option Explicit

Private IsLoacalyRegstred As Boolean
Private mvarIsOk As Boolean
Private hLib As API_HANDLE

Private Const LIB_FILE_NAME = "CommonFunctions0201.DLL"

'====================================================================
Public Property Get IsOk() As Boolean
  IsOk = mvarIsOk
End Property

'====================================================================
Private Sub Class_Initialize()
  Dim Obj As CmnFuncs0201.ajpAlone
  Dim lpProc As POINTER
  
  On Error Resume Next
  
  Set Obj = New CmnFuncs0201.ajpAlone
  If Err.Number = 0 Then
    IsLoacalyRegstred = False
    mvarIsOk = True
    Exit Sub
  End If
  
  IsLoacalyRegstred = True
  
  hLib = LoadLibrary(asBuildFileName(App.Path, LIB_FILE_NAME))
  If hLib = 0 Then
    MsgBox "Не удалось зарегистрировать " & LIB_FILE_NAME & " из каталога программы.", vbCritical
    asDebugPrint "CSxS::Initialize() ==> LoadLibrary() failed."
    Exit Sub
  End If
  
  lpProc = GetProcAddress(hLib, "DllRegisterServer")
  If lpProc = 0 Then
    MsgBox "Не удалось зарегистрировать " & LIB_FILE_NAME & " из каталога программы.", vbCritical
    asDebugPrint "CSxS::Initialize() ==> GetProcAddress() failed."
    Exit Sub
  End If
  
  If asCallFunction_4(lpProc) <> 0 Then
    MsgBox "Не удалось зарегистрировать " & LIB_FILE_NAME & " из каталога программы.", vbCritical
    asDebugPrint "CSxS::Initialize() ==> DllRegisterServer() failed."
    Exit Sub
  End If
  
  asDebugPrint "CSxS::Initialize() ==> " & LIB_FILE_NAME & " успешно зарегистрирована."
  mvarIsOk = True
End Sub

Private Sub Class_Terminate()
  Dim lpProc As POINTER
  
  If IsLoacalyRegstred And mvarIsOk Then
    lpProc = GetProcAddress(hLib, "DllUnregisterServer")
    If lpProc = 0 Then
      MsgBox "Не удалось разрегистрировать " & LIB_FILE_NAME & " из каталога программы.", vbCritical
      asDebugPrint "CSxS::Terminate() ==> GetProcAddress() failed."
      GoTo hExitSub
    End If
    
    If asCallFunction_4(lpProc) <> 0 Then
      MsgBox "Не удалось разрегистрировать " & LIB_FILE_NAME & " из каталога программы.", vbCritical
      asDebugPrint "CSxS::Terminate() ==> DllUnregisterServer() failed."
      GoTo hExitSub
    End If
    
    asDebugPrint "CSxS::Terminate() ==> " & LIB_FILE_NAME & " успешно разрегистрирована."
  End If
  
hExitSub:
  If hLib <> 0 Then FreeLibrary hLib
End Sub

И даже GoTo место нашлось ^^ Правда, GoTo пересекающее блок If - не есть хорошо...

#music: Flashback 95.6.WAV

URL