Scheint ja nicht viele Nutzer des TotalCommanders zu geben, was ich nicht so ganz
verstehen kann, ist IMHO der beste Dateimanager, den es für Windows gibt
.
Hab hier mal einen Testcode gebastelt, mit dem man die Plugins auch ohne TC
testen kann:
Code: Alles auswählen
EnableExplicit
Prototype.i ListLoadW(ParentWin.i, FileToLoad.p-Unicode, ShowFlags.i)
Prototype ListCloseWindow(ListWin.i)
Define hDLL
CompilerIf #PB_Compiler_Processor = #PB_Processor_x64
hDLL = OpenLibrary(#PB_Any, GetPathPart(ProgramFilename()) + "PureSyn.wlx64")
CompilerElse
hDLL = OpenLibrary(#PB_Any, GetPathPart(ProgramFilename()) + "PureSyn.wlx")
CompilerEndIf
If Not hDLL
MessageRequester("PureSyn", "Can't find the required plugin", #MB_ICONERROR)
End
EndIf
Define File.s = ProgramParameter()
Define Pattern.s
Define DefaultFile.s
If Not File
Pattern.s = "PureBasic (*.pb, *pbi)|*.pb;*.pbi|All Files (*.*)|*.*"
OpenPreferences(GetEnvironmentVariable("APPDATA") + "\PureBasic\PureBasic.prefs")
PreferenceGroup("Global")
DefaultFile = ReadPreferenceString("SourceDirectory", GetHomeDirectory())
ClosePreferences()
File = OpenFileRequester("Open PureBasic-Source", DefaultFile, Pattern, 0)
EndIf
Define ListLoadW.ListLoadW = GetFunction(hDLL, "ListLoadW")
Define ListCloseWindow.ListCloseWindow = GetFunction(hDLL, "ListCloseWindow")
Define Flags = #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_NoGadgets
OpenWindow(0, #PB_Ignore, #PB_Ignore, 640, 480, "PureSyn StandAlone", Flags)
RemoveKeyboardShortcut(0, #PB_Shortcut_Tab)
Define con = ListLoadW(WindowID(0), File, 0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
ListCloseWindow(WindowID(0))
Break
Case #PB_Event_SizeWindow
MoveWindow_(con, 0, 0, WindowWidth(0), WindowHeight(0), 0)
EndSelect
ForEver
Der Code befindet sich auch im Download!
Gruß
Thomas