Newsgroup: it.comp.lang.visual-basic
Titolo: Registrare le DLL da VB6

Ciao a tutti chi mi dice come si fa da vb6 con poche righe se è possibile?
Ho trovato esempi con un sacco di dichiarazioni...
Inoltre se io nel mio prog scrivessi "shell reg.bat, vbhide" e nel file bat
inserisco le istruzioni x registrare la dll tramite resvr32 secondo voi
funziona? scusate ma non posso controllare ora.
Grazie.

 funziona?
sarebbe come Fantozzi defini` il film sulla corazzata Potiomkin :-P
-- 
ciao, hal


Funziona lo stesso ma meno bene: cosě facendo non hai modo di sapere se la 
registrazione č andata a buon fine.
E poi c'č una cosa: ma che t'importa se ci sono tante dichiarazioni, mica si 
pagano! :-)
Ciaoi
Elef 

 
Dim handle as long
Dim retReg as long
handle = LoadLibrary("tua.dll")
' controlli che handle sia valido come valore
retReg = GetProcAddress(handle, "DllRegisterServer")
'
' se retReg è diverso da NULL, la registrazione è andata bene!
Call FreeLibrary(handle)

"Peca's" <aaaa@aa.l> ha scritto nel messaggio 
news:jkw9e.901$291...@tornado.fastwebnet.it...

Estratto da un mio programma che aggiorna i programmi
430               If ComponenteServer(i).DaAggiornare = True Then
440                   Select Case ComponenteServer(i).Tipo
                      Case Is = "E" 'exe standard
450                       sFileAggiornamento = sFileAggiornamento & "xcopy 
""" & App.Path & "\agg\" & ComponenteServer(i).Nome & """ """ & App.Path & 
"\"" /v /y " & vbCrLf
460                   Case Is = "S" 'exe activex
470                       sFileAggiornamento = sFileAggiornamento & 
Trim(WinSysDir) & "\regsvr32.exe """ & ComponenteServer(i).Nome & """ /u /s 
" & vbCrLf
480                       sFileAggiornamento = sFileAggiornamento & "xcopy 
""" & App.Path & "\agg\" & ComponenteServer(i).Nome & """ """ & 
Trim(WinSysDir) & "\"" /v /y " & vbCrLf
490                       sFileAggiornamento = sFileAggiornamento & 
Trim(WinSysDir) & "\regsvr32.exe """ & ComponenteServer(i).Nome & """ /s " & 
vbCrLf
500                   Case Is = "O" 'OCX
510                       sFileAggiornamento = sFileAggiornamento & 
Trim(WinSysDir) & "\regsvr32.exe """ & ComponenteServer(i).Nome & """ /u /s 
" & vbCrLf
520                       sFileAggiornamento = sFileAggiornamento & "xcopy 
""" & App.Path & "\agg\" & ComponenteServer(i).Nome & """ """ & 
Trim(WinSysDir) & "\"" /v /y " & vbCrLf
530                       sFileAggiornamento = sFileAggiornamento & 
Trim(WinSysDir) & "\regsvr32.exe """ & ComponenteServer(i).Nome & """ /s " & 
vbCrLf
540                   Case Is = "D" 'DLL
550                       sFileAggiornamento = sFileAggiornamento & 
Trim(WinSysDir) & "\regsvr32.exe """ & ComponenteServer(i).Nome & """ /u /s 
" & vbCrLf
560                       sFileAggiornamento = sFileAggiornamento & "xcopy 
""" & App.Path & "\agg\" & ComponenteServer(i).Nome & """ """ & 
Trim(WinSysDir) & "\"" /v /y " & vbCrLf
570                       sFileAggiornamento = sFileAggiornamento & 
Trim(WinSysDir) & "\regsvr32.exe """ & ComponenteServer(i).Nome & """ /s " & 
vbCrLf
580                   End Select
590               End If
630       Call ScriviFile(App.Path & "\agg\agg.bat", sFileAggiornamento)
640       Call ScriviRunOnce
-- 
"Tutta la droga del mondo non vale un grammo della mia adrenalina"
Lorenzo Cherubini alias Jovanotti
Per bypassare i filtri antispam scrivi nel testo del messaggio "AIEIE"
MasterDavidex - David Ruscelli
ICQ 223258511 

Innanzitutto GRAZIE  a tutti! Ho risolto e sono soddisfatto!
Mi chiedevo e conoscevate inoltre un modo x fare il kill
dell'applicazione... Ve lo chiedo xche spesso mi capita che l'utente apra 2
volte lo stesso prog. Ho fatto in modo che al 2° avvio il prog rilevi altre
istanze di se stesso e visualizzi un mex dove si chiede se aprire una nuova
istanza... solo che se mi risponde di "si" non so come chiudere quella già
attiva... mentre se riponde di no riesco a riaprire quella già aperta.
Chi mi aiuta? Grazie!