Add Platform Control

Source/Fasm4Delphi.pas

@@ -5,11 +5,12 @@ unit Fasm4Delphi platform;
 
 interface
 
+//{$Define FasmStaticLink}
+{$IFDEF WIN32}
+
 uses
   Windows;
 
-//{$Define FasmStaticLink}
-
 type
   TFasmVersion=packed record
     V1,V2:word;
@@ -113,9 +114,11 @@ var
 procedure LoadFASM(Name:string=FASMDLLName);
 procedure FreeFASM;
 {$ENDIF}
+{$ENDIF}
 
 implementation
 
+{$IFDEF WIN32}
 {$IFNDEF FasmStaticLink}
 var
   &Library:THandle=0;
@@ -147,5 +150,6 @@ fasm_AssembleFile:=nil;
 &Library:=0;
 end;
 {$ENDIF}
+{$ENDIF}
 
 end.