artem3213212/FASM4Delphi
1
0
Fork 0
Code Releases Activity

Add Platform Control

Browse Source
This commit is contained in:
Artem3213212
2018-03-10 15:04:19 +03:00
parent 425bce25a1
commit 4b707d6b98
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Fasm4Delphi.pas
View File

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