From 30dfc2ac6bf6f775c7caf2a5ea89648c0eb71f7f Mon Sep 17 00:00:00 2001 From: whiteshark0 Date: Mon, 23 Mar 2009 14:57:13 +0000 Subject: removed some debug stuff git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1655 b956fd51-792f-4845-bead-9b4dfca2ff2c --- ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas') diff --git a/ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas b/ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas index b143cd2a..388ae334 100644 --- a/ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas +++ b/ServiceBasedPlugins/src/pluginsupport/UPluginLoader_DLL.pas @@ -72,7 +72,7 @@ uses {$ELSE} dynlibs, {$ENDIF} - SysUtils, Dialogs, + SysUtils, UPluginManager, UPlatform; @@ -88,12 +88,10 @@ procedure TPluginLoader_DLL.Browse(Dir: WideString); Files: TDirectoryEntryArray; I: Integer; begin - Showmessage(Dir + ' - ' + DLLExt); Files := Platform.DirectoryFindFiles(Dir, DLLExt, True); for I := 0 to High(Files) do begin - ShowMessage(Dir + Files[I].Name); if (Files[I].IsDirectory) then Browse(Dir + Files[I].Name + PathDelim) else if (Files[I].IsFile) then -- cgit v1.2.3