FPC fix

FPCTest/testcase1.pas

@@ -5,7 +5,7 @@ unit TestCase1;
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testutils, testregistry, AG.Logs;
+  Classes, SysUtils, fpcunit, testutils, testregistry, AG.Logs{$IFDEF MSWINDOWS},Windows{$ENDIF};
 
 type
 
@@ -16,6 +16,11 @@ type
 
 implementation
 
+procedure Test(s:string);
+begin
+  Write(s);
+end;
+
 procedure TTestCase1.TestHookUp;
 var
   MultiLog:TAGLog;
@@ -26,10 +31,10 @@ MultiLog:=TAGMultiLog.Create(nil);
 (MultiLog as TAGMultiLog).Logs.Add(TAGNullLog.Create());
 (MultiLog as TAGMultiLog).Logs.Add(TAGDiskLog.Create('test.log'));
 (MultiLog as TAGMultiLog).Logs.Add(TAGRamLog.Create());
-{$IFNDEF MSWINDOWS}(MultiLog as TAGMultiLog).Logs.Add(TAGCommandLineLog.Create(GetStdHandle(STD_OUTPUT_HANDLE))){$ENDIF}; 
+{$IFDEF MSWINDOWS}(MultiLog as TAGMultiLog).Logs.Add(TAGCommandLineLog.Create(GetStdHandle(STD_OUTPUT_HANDLE))){$ENDIF};
 Stream:=nil;
 try
-  Stream:=TFileStream.Create('test2.log',fmOpenRead);  
+  Stream:=TFileStream.Create('test2.log',fmOpenRead+fmShareDenyNone);
   SetLength(s,Stream.Size);
   Stream.Read(s[0],Stream.Size);
 except
@@ -40,13 +45,11 @@ Stream:=TFileStream.Create('test2.log',fmCreate+fmOpenReadWrite+fmShareDenyWrite
 Stream.Write(s[0],Length(s));
 (MultiLog as TAGMultiLog).Logs.Add(TAGStreamLog.Create(Stream)); 
 SetLength(s,0);
-{(MultiLog as TAGMultiLog).Logs.Add(TAGCallBackLog.Create(procedure(s:string)
-                                                         begin
-                                                         Self.WriteLn(s);
-                                                         end));}
+(MultiLog as TAGMultiLog).Logs.Add(TAGCallBackLog.Create(@Test));
 MultiLog.Write('Str Test');
 MultiLog.Write('Str+Object Test',self);
 FreeAndNil(MultiLog);
+
 end;