45 lines
1.1 KiB
ObjectPascal
45 lines
1.1 KiB
ObjectPascal
unit UIMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
InitCode,
|
|
LibImport,
|
|
WinAPI.Windows,
|
|
System.SysUtils, System.Classes, System.Types;
|
|
|
|
const
|
|
PLUGIN_DATABASE = 0;
|
|
PLUGIN_CONFIG = 1;
|
|
PLUGIN_LIBRARY = 2;
|
|
|
|
var
|
|
UIFuncs: TUIFuncs;
|
|
|
|
implementation
|
|
|
|
uses
|
|
BrunsliDLL, FLACDLL, FLZMA2DLL, JoJpegDLL, LZ4DLL, LZODLL, OodleDLL,
|
|
PackJPGDLL, PreflateDLL, ReflateDLL, XDeltaDLL, ZLibDLL, ZSTDDLL,
|
|
Utils;
|
|
|
|
initialization
|
|
|
|
UIFuncs.IsZlibLoaded := ZLibDLL.DLLLoaded;
|
|
UIFuncs.IsReflateLoaded := ReflateDLL.DLLLoaded;
|
|
UIFuncs.IsPreflateLoaded := PreflateDLL.DLLLoaded;
|
|
UIFuncs.IsLZ4Loaded := LZ4DLL.DLLLoaded;
|
|
UIFuncs.IsLZOLoaded := LZODLL.DLLLoaded;
|
|
UIFuncs.IsZSTDLoaded := ZSTDDLL.DLLLoaded;
|
|
UIFuncs.IsOodleLoaded := OodleDLL.DLLLoaded;
|
|
UIFuncs.IsFLACLoaded := FLACDLL.DLLLoaded;
|
|
UIFuncs.IsBrunsliLoaded := BrunsliDLL.DLLLoaded;
|
|
UIFuncs.IsPackJPGLoaded := PackJPGDLL.DLLLoaded;
|
|
UIFuncs.IsJoJpegLoaded := JoJpegDLL.DLLLoaded;
|
|
UIFuncs.IsXDeltaLoaded := XDeltaDLL.DLLLoaded;
|
|
UIFuncs.IsLZMALoaded := FLZMA2DLL.DLLLoaded;
|
|
UIFuncs.IsSrepAvailable :=
|
|
FileExists(ExpandPath(PluginsPath + 'srep.exe', True));
|
|
|
|
end.
|