Problem with creating DLL
Posted: Sun May 04, 2003 1:43 pm
My DLL Code:
I create now a DLL. Then I copy the new PureBasic.dll to my program
directory and rename it.
But any time the OpenLibrary() function don't work. I can't open my own
DLL ....
I use the newest PB version with all updates from
http://www.purebasic.com/update/
Code: Select all
ProcedureDLL.l GetFolder(Mainfolder.s, Patter.s, Number.l, Gadget.l)
Protected Mainfolder
Protected Patter
Protected Number
Protected Gadget
;Number := Freie ID
;Patter := Welche Dateien sollen ausgegeben werden? Beispiel: *.exe
;Mainfolder := Ordner, wo die E-Mail Daten gespeichert sind
;Gatget := Die Gadget Nummer des Zieles
Protected What.l
If ExamineDirectory(Number, Mainfolder, Patter) <> 0
ClearGadgetItemList(Gadget)
Repeat
What = NextDirectoryEntry()
If What = 2
AddGadgetItem(Gadget, -1, DirectoryEntryName())
EndIf
Until What = 0
ProcedureReturn #True
Else
MessageRequester("Fehler","Das Datenverzeichnis kann nicht durchsucht werden!",#MB_SETFOREGROUND|#PB_MessageRequester_Ok|#MB_ICONEXCLAMATION|#MB_DEFBUTTON1)
ProcedureReturn #False
EndIf
EndProcedure
directory and rename it.
But any time the OpenLibrary() function don't work. I can't open my own
DLL ....
I use the newest PB version with all updates from
http://www.purebasic.com/update/