🚧 Removing WinAPI

hazzelnuts · Mar 12, 2023 · 5ba5381 · 5ba5381
1 parent c9647a8
commit 5ba5381
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/src/Notify.Core.pas b/src/Notify.Core.pas
@@ -63,8 +63,10 @@   TNotifyCore = class sealed(TInterfacedObject, INotifyCore)
     function Response: TNotifyApiResponse;
     procedure BasicValidation;
     procedure DoLoadLibrary;
-    procedure LoadLibraries(const ALibName: String);
     procedure WithAuthentication;
+    {$IF DEFINED(NTFY_HTTP_INDY)}
+    procedure LoadLibraries(const ALibName: String);
+    {$IFEND}
   end;
 
 implementation
@@ -80,8 +82,10 @@ implementation
   Notify.Action.DTO,
   Notify.Attachment.DTO,
   Notify.Action.Contract,
-  Notify.Attachment.Contract,
-  Winapi.Windows;
+  Notify.Attachment.Contract
+  {$IF DEFINED(NTFY_HTTP_INDY)}
+  Winapi.Windows
+  {$IFEND};
 
 { TNotifyCore }
 
@@ -251,6 +255,7 @@ procedure TNotifyCore.ConsoleLogEvent;
 
 end;
 
+{$IF DEFINED(NTFY_HTTP_INDY)}
 procedure TNotifyCore.LoadLibraries(const ALibName: String);
 var
   LSavedCW: Word;
@@ -273,6 +278,7 @@ procedure TNotifyCore.LoadLibraries(const ALibName: String);
     raise Exception.Create(Format('Could not load %s library. Errors: %s', [ALibName, LError]));
   end
 end;
+{$IFEND}
 
 function TNotifyCore.LogPath(const AValue: String): INotifyCore;
 begin