Composent PowerBatch en PureBasic

Partagez votre expérience de PureBasic avec les autres utilisateurs.
gansta93
Messages : 1448
Inscription : jeu. 26/févr./2004 11:17
Localisation : Le Village
Contact :

Composent PowerBatch en PureBasic

Message par gansta93 »

Bonjour,

Vous connaissez suremant PowerBatch, non?
Cet editeur de batch simplifier permait non seulemant comme son nom l'indique de faire des batch et de les compiler, mais aussi de lui ajouter des fonctions par un système de Plug-in.
Ce Plug-in est une dll à placer dans le répertoir components il me semble.
Voici un exemple de Plug-in, bien le compiler sous forme de dll.
Les espaces après chaque guillemets, c'est normal. Comme expliqué dans le code, si je ne les mait pas, il zape le premier caractère.

Code : Tout sélectionner

; Composent PowerBatch par Gansta93
; Ce composant ajoutera dans l'editeur PowerBatch la ligne "@echo off+chr 10 et 13 deltree /y %tmp%>nul"
; On mait result et result$ en Global, pourquoi pas... ça marche en tout cas
Global result, result$

; Deffinire le protocol de la dll, seul le 1 est suporté jusqu'à maintenant
; Je ne sais pas ce que c'est :-)
ProcedureDLL GetProtocolVersion()
  
  ProcedureReturn result = 1
  
EndProcedure

; Dans tout ce qui est texte, on doit mettre un espace car sinon, il zape le premier caractère, je ne sais pas pourquoi.
; Initialisation du composent, la description de celui-ci est retournée.
ProcedureDLL InitializeComponent()
  
  ProcedureReturn result$ = " Efface les fichiers dans votre docier Temp."
  
EndProcedure

; La ligne à imprimer dans l'editeur, mais on pourait très bien mettre des MessageRequesters dedans mais on mait une ligne à imprimer dans ce cas-là.
ProcedureDLL ComponentExecute()
  
  ProcedureReturn result$ = (" @echo off" + Chr(13) + Chr(10) + "deltree /y %tmp%>nul")
  
EndProcedure

; Pour retourner le nom de l'auteur
ProcedureDLL Author()
  
  ProcedureReturn result$ = " Gansta93"
  
EndProcedure

; Petit message de copyright par exemple
ProcedureDLL About()
  
  ProcedureReturn result$ = " © copyright 2004 par Gansta93. Touts droits réservés."
  
EndProcedure
Je me suis inspiré de la doc qui expliquait comment faire cela en delphi, peut-être y a-t-il une meilleure manière.
Dr. Dri
Messages : 2527
Inscription : ven. 23/janv./2004 18:10

Message par Dr. Dri »

C'est pour faire un plug-in pour powerbatch c'est ca ?
ca peut être intéressant, je jetterai un coup d'oeil là dessus...

Tu pourrais mettre un extrait de la doc sinon pour que ce soit plus parlant ?
(promis la prochaine fois je me procure le logiciel ^^)

Dri
gansta93
Messages : 1448
Inscription : jeu. 26/févr./2004 11:17
Localisation : Le Village
Contact :

Message par gansta93 »

Je mettrais la page en lien, il faut déjà que je la transfert. Je te tiendrais au courrant.
gansta93
Messages : 1448
Inscription : jeu. 26/févr./2004 11:17
Localisation : Le Village
Contact :

Message par gansta93 »

La doc est ici:
http://gansta93.free.fr/MakeComponents.htm
du code en Delphi, j'espèrais apprendre le delphi avec ça... :-)
Répondre