Code: Alles auswählen
If CreateFile(1, "Includes.pb")
If ExamineDirectory(0,pluginfolder$+"/"+a$,"*.*")
Repeat
FileType = NextDirectoryEntry()
If FileType = 1
FileName$ = DirectoryEntryName()
Name$ = pluginfolder$+"/"+a$+"/"+FileName$
WriteStringN("IncludeFile "+Chr(34)+Name$+Chr(34))
EndIf
Until FileType = 0
Else
MessageRequester("Error: Plugins",pluginfolder$+"/"+a$+" not found.",0)
EndIf
CloseFile(1)
EndIf
Diese Datei MUSST du dann immer selber ausführen, du kannst das nicht in den Compiliervorgang einbauen, schon garnicht in 3.3
bei 4.x könntest du es zu den Werkzeugen packen das das zwischenprogramm immer vor dem Compilieren ausgeführt wird, dann hättest du das gewünschte ergebnis