PureBasic

Code : Tout sélectionner

; ################     kernadec en 01 2010   ################################
; Lecture des fonctions d'une DLL dans un Fichier copié dans le presse papier
; pour coller la liste avec pliage dans son code 
; ##########################################################################
file$ = OpenFileRequester("DLL Fonctions","","Fichier DLL (*.dll)|*.dll|All files (*.*)|*.*",0)
If file$ <> ""
 CreateDirectory("c:\temp-dll\")
If OpenLibrary(0,file$)
If CreateFile(0,"c:\temp-dll\"+GetFilePart(file$) + ".txt")
 WriteStringN(0,";{-Liste de "+Str(CountLibraryFunctions(0))+" Fonctions de la DLL: " + file$) 
 ExamineLibraryFunctions(0)
For i = 1 To CountLibraryFunctions(0)
 NextLibraryFunction()
 WriteString(0,"; "+Str(i)+" :  "):WriteString(0,LibraryFunctionName()):WriteStringN(0,"")
Next
 WriteString(0,";}")
 CloseFile(0)
 
 If ReadFile(0,"C:\temp-dll\"+GetFilePart(file$) + ".txt")          ; exemple lecture data et mise en mémoire de la doc Purebasic
   length = Lof(0)                                                         ; Lit la taille en octets du fichier 
   *MemoryID = AllocateMemory(length)                      ; alloue un bloc mémoire de la taille du fichier
   If *MemoryID
     bytes = ReadData(0, *MemoryID, length)          ; Lit les données du fichier et les place dans le bloc mémoire
    EndIf
   CloseFile(0)
  EndIf

 SetClipboardText(PeekS(*MemoryID,length,#PB_Ascii))        ; transfert de la zone mémoire dans le Presse Papier
  
 DeleteDirectory("c:\temp-dll","*.*")                                    ; on efface le répertoire avec le fichier de fonctions
   
Else
 MessageRequester("  Attention ","Erreur de Fichier")
EndIf:EndIf:EndIf

Code : Tout sélectionner

; ################     kernadec en 01 2010   ################################
; lecture des fonctions d'une DLL les copie dans le presse papier
; pour coller la liste avec pliage dans son code 
; ############################################################################
file$=OpenFileRequester("DLL Fonctions","","Fichier DLL (*.dll)|*.dll|All files (*.*)|*.*",0)
If OpenLibrary(0,file$)
 length.l=CountLibraryFunctions(0)*40
*MemoireID = AllocateMemory(length)
*Pointeur = *MemoireID
 CopyMemoryString(";{-Liste de "+Str(CountLibraryFunctions(0))+" Fonctions de la DLL: " + file$ + Chr(10),@*Pointeur)
 ExamineLibraryFunctions(0)
For i = 1 To CountLibraryFunctions(0)
 NextLibraryFunction()
 CopyMemoryString("; "+Str(i)+" :  ")
 CopyMemoryString(LibraryFunctionName())
 CopyMemoryString(""+Chr(10))
Next
CopyMemoryString(";}")
 SetClipboardText(PeekS(*MemoireID,length,#PB_Ascii))        ; transfer de la zone memoire dans le clipboard
Else
 MessageRequester("  Attention ","Erreur de Fichier")
EndIf
FreeMemory(*MemoireID)

Code : Tout sélectionner

; ################     kernadec en 01 2010   ################################
; lecture des fonctions d'une DLL les copie dans le presse papier
; pour coller la liste avec pliage dans son code
; ############################################################################
file$=OpenFileRequester("DLL Fonctions","","Fichier DLL (*.dll)|*.dll|All files (*.*)|*.*",0)
If OpenLibrary(0,file$)
  Functions$ = ";{-Liste de "+Str(CountLibraryFunctions(0))+" Fonctions de la DLL: " + file$ + Chr(10)
  ExamineLibraryFunctions(0)
  While NextLibraryFunction()
    Functions$ + "; "+Str(i)+" :  "+ LibraryFunctionName() + Chr(10)
  Wend
  Functions$+";}"
  SetClipboardText(Functions$)        ; transfer de la zone memoire dans le clipboard
Else
  MessageRequester("  Attention ","Erreur de Fichier")
EndIf