PureBasic Forums - English

Code: Select all

;
; ------------------------------------------------------------
;
;           Dll Compile Help By Berikco
;
;           (c) 2002 - Benny Sels
;
; ------------------------------------------------------------
;
; For Purebasic Toolmenu version 3.40 and up
;
; --- Toolbox settings ---------------------------------------
;
; Arguments:
; First  argument "%FILE"   (Don't forget the "" around %FILE)
;
; ------------------------------------------------------------
;
; 2002/11/05
; First version
;

CompilerPath$="C:\Program Files\PureBasic\Compilers"  ; Your CompilerPath here !!

SourceFileName$ = ProgramParameter()

FileName$ = GetFilePart(SourceFileName$)
Path$ = GetPathPart(SourceFileName$)
 
FileName$=Left(FileName$,Len(FileName$)-3)+".dll"
DestFileDLL$ = Path$ + FileName$ 

Parameter$ = Chr(34) + SourceFileName$ + Chr(34) + " /DLL" 
Compiler$= CompilerPath$ + "\PBCompiler.exe"

RunProgram(compiler$ , Parameter$, CompilerPath$, 1) 

CopyFile(CompilerPath$ + "\purebasic.dll", DestFileDLL$)