Funktion aus DLL (in C++ geschrieben) nach Delphi importiere

[Astat]

Hallo STaRDoGGCHaMP.

Naja, womöglich Brutalmethode mit ausgeschalteter Bereichs und Überlaufprüfung und FPU control
word (precision, exception masks) versuchen.

Delphi-Quellcode:

{$R-} {$Q-}
var
  CurErrorMode: UINT;
  FPUControlWord: Word;
begin
  CurErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    asm FNSTCW FPUControlWord end;
    try
      GetMove(nBoard, PGC_BLACK, 5, str, playnow, 0, 0, @Move);
    finally
      asm FNCLEX; FLDCW FPUControlWord end;
    end;
  finally
    SetErrorMode(CurErrorMode);
  end;
end;

lg. Astat