Knižnice mimo exe – Visual Basic – Fórum – Programujte.com

Zdravím,

robím na programe, ktorý si vyžaduje DLL knižnicu a tak mi nefunguje správne keď nie je pri samotnom exe. Ale to mi nevyhovuje už z princípu, že chcem mať "čistý" program, tak by som rád vedel, či existuje možnosť, že si DLL uložím do programu, ktorý mi ho pri spustení uloží do Tempu a následne ho aj vie použiť.

Ďakujem

Tohle už je tu skoro rok, ale třeba se to někomu bude hodit. 

' ------------------------------------------------------
' Nutne nastaveni(VB6 IDE):
' [Add-Ins]
' [Add-In Manager...]
' VB6 Resource Editor = Startup / Loaded
' ------------------------------------------------------

' ------------------------------------------------------
' Pridat Resource File do Projektu:
' Kliknout na nove vytvorenou polozku v menu... (je az dole)
' [Project]
' [Add New Resource File]
' ...a zadat treba:
' [Nazev souboru] = Project1.Res
' ------------------------------------------------------

' ------------------------------------------------------
' Editace Resource File, Pridani binarniho souboru:
' Otevrit [Project Explorer] [Related Documents] (Project1.RES)
' a kliknout na ikonu s ToolTipem "Add Custom Resource..."
' Nove pridanemu souboru je automaticky prideleno
' (ResourceID) cislo pocinaje 101...
' ------------------------------------------------------

' ------------------------------------------------------
' Binarni data zpristupnuje funkce LoadResData (id, type) -
' lze je tady nacist do bajtoveho pole.
' No a jak pouzit funkci ze zalozni knihovny?
' Nejsnazsi se zda ulozit dll zpet do souboru
' a funkci nadeklarovat klasicky.
' To znamena vytvorit soubor do stejneho adresare,
' kde bezi aplikace, protoze nevim, kolik existuje
' ruznych cest do TEMPORARY FOLDER (podle verzi windowsu)
' a nechci deklarovat funkce pro kazdou z nich zvlast.
' ------------------------------------------------------

Option Explicit

Private Sub Form_Load()

    CreateLibFile App.Title & "\MyLib.dll", 101

End Sub

a do modulu: 

'---------------------------------------------------------------------------------------
' Module    : BinRes
' Purpose   : ADDING BINARY RESOURCE TO VB6 PROJECT
'             THEN CREATING A FILE FROM THIS RESOURCE
'---------------------------------------------------------------------------------------

Option Explicit

Public Sub CreateLibFile(ByVal LibName As String, ByVal ResId As Long)
    
    ' Parametry
    Dim fNum As Long
    Dim b() As Byte

    ' Vlastnosti
    fNum = FreeFile
    b = LoadResData(ResId, "CUSTOM")
    
    ' Odstraneni predchozi verze, pokud existuje.
    Open LibName For Output As #fNum
    Close #fNum

    ' Vytvoreni
    Open LibName For Binary Access Write As #fNum
    Put #fNum, , b
    Close #fNum

Nějak mi vypadl konec procedury. 

    ' Uklid
    fNum = Empty
    Erase b

End Sub

Připojen obrázek.