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

14
Source/Fasm4Delphi.pas
View File

@@ -3,12 +3,13 @@ unit Fasm4Delphi platform;
{Delphi Translation&Tests:Artyom Gavrilov,Vlad Untkin. {Delphi Translation&Tests:Artyom Gavrilov,Vlad Untkin.
Donate:https://money.yandex.ru/to/410014959153552} Donate:https://money.yandex.ru/to/410014959153552}
interface interface
uses
Windows;
//{$Define FasmStaticLink} //{$Define FasmStaticLink}
{$IFDEF WIN32}
uses
Windows;
type type
TFasmVersion=packed record TFasmVersion=packed record
@@ -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;
@@ -145,7 +148,8 @@ fasm_GetVersion:=nil;
fasm_Assemble:=nil; fasm_Assemble:=nil;
fasm_AssembleFile:=nil; fasm_AssembleFile:=nil;
&Library:=0; &Library:=0;
end; end;
{$ENDIF}
{$ENDIF} {$ENDIF}
end. end.