PureBasic

ERUP 3SERTCRS TSNC Pi Û I@

comtois a écrit :tu peux aussi le faire avec PBCompiler qui se trouve dans le répertoire compilers.

tu écris les résidents que tu souhaites dans un fichier texte.
et ensuite tu lances dans une console dos :

PBCompiler "le nom de ton fichier texte" /RESIDENT "le nom de ton fichier résident"

ça pourrait être bien de faire un petit utilitaire pour ça , dans le même style que le dllimporter , deux champs pour saisir le chemin des fichiers , et une touche "start", je vais peut-être le faire si je trouve un peu de temps

Dr. Dri a écrit :Bah comme tu viens de le souligner c'est faisable via l'IDE... Il suffit d'ajouter la directive de compilation dans les options de compilation...

; Gillou
; Purebasic 3.94

; Ligne de commande : L'adresse du fichier
; Arguments : %FILE
; Nom : Resident Creator

; Vous puvez ajouter un raccourci si ça vous chante

ProcedureDLL.s GetPBPath() ; Retourne le dossier d'installation de PureBasic
    path.s = "Applications\PureBasic.exe\shell\open\command"
     If RegOpenKeyEx_ ( #HKEY_CLASSES_ROOT , path, 0, #KEY_ALL_ACCESS , @Key) = #ERROR_SUCCESS
        indir.s = Space (500)
        insize = 500
         If RegQueryValueEx_ (Key, "" , 0, 0, @indir.s, @insize) = #ERROR_SUCCESS
             RegCloseKey_ (Key)
            indir = RemoveString (indir, "%1" , 1)
            indir = RemoveString (indir, Chr (34), 1)
            indir = RTrim (indir)
            path = GetPathPart (indir)
         Else
             RegCloseKey_ (Key)
             ProcedureReturn ""
         EndIf
     EndIf
     If Path
         ProcedureReturn Path
     EndIf
EndProcedure

ProcedureDLL.s ProgramParameterA() ; Retourne tout le texte en paramètre
Repeat
    m$ = ProgramParameter ()
     If m$ And ma$ : ma$ = ma$ + " " + m$ : ElseIf m$ And ma$= "" : ma$ = m$ : EndIf
Until m$ = ""
ProcedureReturn ma$
EndProcedure

ProcedureDLL ListWind() ; Retourne le nombre de fenêtres actuellement active
Structure TH
txt.s
hwnd.s
EndStructure
Global listwins
If listwins=0 : NewList wind.th() : listwins=1 : Else : ClearList (wind()) : EndIf
hWnd.l = FindWindow_ ( 0, 0 )
   While hWnd <> 0
     If GetWindowLong_ (Hwnd, #GWL_STYLE ) & #WS_VISIBLE = #WS_VISIBLE ; pour lister que les fenêtres visibles
       If GetWindowLong_ (Hwnd, #GWL_EXSTYLE ) & #WS_EX_TOOLWINDOW <> #WS_EX_TOOLWINDOW ; pour lister que les fenêtres qui ne sont pas des ToolWindow ou barre d'outils
        txt.s = Space (256)
         GetWindowText_ (hwnd, txt, 256)
         If txt <> ""
           AddElement (wind()) : wind()\txt=txt : wind()\hwnd= Str (hwnd)
         EndIf
       EndIf
     EndIf
    hWnd = GetWindow_ (hWnd, #GW_HWNDNEXT )
   Wend
   ProcedureReturn CountList (wind())
EndProcedure

ProcedureDLL.s SelectWind(Number, Option) ; Retourne le titre de la fenêtre sélectionnée (Number doit être compris entre 0 et ListWindows()-1)
If listwins=1
If CountList (wind())>0
If number=<CountList(wind())-1
SelectElement (wind(),number)
If option=1
ProcedureReturn wind()\txt
Else
ProcedureReturn wind()\hwnd
EndIf
EndIf
EndIf
EndIf
EndProcedure

ProcedureDLL.s GetFilePartWithoutExt(File.s) ; Retourne le nom du fichier sans l'extension
    File.s = GetFilePart (File.s)
     If Len ( GetExtensionPart (File.s)) <> 0
         ProcedureReturn Left (File.s, Len (File.s) - Len ( GetExtensionPart (File.s)) - 1)
     EndIf
     ProcedureReturn File.s
EndProcedure

ProcedureDLL RestartCompiler2()
#PB_MSG_RESTART_COMPILER = 10174
n=ListWind()
For a=1 To n-1
WText$=SelectWind(a,1)
If Left (WText$, 12)= "PureBasic - "
     If WText$<> "PureBasic - Visionneuse de fichiers" And WText$<> "PureBasic - File Viewer" And WText$<> "PureBasic - Dateibetrachter"
      hPBIDE = Val (SelectWind(a,0))
     EndIf
EndIf
Next
ProcedureReturn PostMessage_ (hPBIDE, RegisterWindowMessage_ ( "PB_MSG_ID" ), #PB_MSG_RESTART_COMPILER , 0)
EndProcedure

file$ = ProgramParameterA()
If GetExtensionPart ( UCase (file$)) = "PB"
Compiler$ = GetPBPath()+ "Compilers\PBCompiler.exe"
Resident$ = GetPBPath()+ "Residents\" +GetFilePartWithoutExtension(file$)+ ".res"
res$=ExecuteProgram(Compiler$, "/RESIDENT " + #Q +Resident$+ #Q + " " + #Q +file$+ #Q ,1)
n= CountString (res$, #CRLF$ )
Repeat
in=in+1
l$=MidField(res$,in, #CRLF$ )
If FindString ( UCase (l$), "ERROR" ,0)=1
Error$=l$
EndIf
If FindString ( UCase (l$), "CREATED" ,0)
Creer=1
EndIf
Until in=n+1
RestartCompiler()
LE = GetLastError()
If LE=109 : LE=0 : EndIf
If IsFileExist(Resident$) And Creer=1 And error$= "" And LE=0
MSGP( "ResCreator" , "Le resident '" +GetFilePartWithoutExt(file$)+ ".res" + "' a été créé." + #CRLF$ + #CRLF$ + "Dossier de destination : " + GetPathPart (resident$)+ #CRLF$ + #CRLF$ + "Taille : " + Str ( FileSize (Resident$))+ " Octets" , 0,4)
Else
res=MSGP( "ResCreator" , error$+ #CRLF$ + #CRLF$ + "Code : " + Str (LE)+ #CRLF$ + #CRLF$ +GetLastErrorAsText(LE)+ #CRLF$ + #CRLF$ + "Voulez-vous supprimer le résident créé et relancer le compilateur?" ,4,3)
If res=6
DeleteFile (Resident$)
RestartCompiler2()
EndIf
EndIf
EndIf

Gillou a écrit :Ouais ton outil est génial, mais regarde la commande restartcompiler()

ça devrait t'intéresser Denis

tu relances ensuite le compilateur pb (menu compilateur/redémarrer le compilateur) pour que le résident soit pris en compte