FPU-Exceptions abschalten...Delphi Problem ?

[haentschman]

Hallo...

also:

Jcl8087. pas gefunden...
Bibliothekspfad gesetzt...
Unit eingebunden...
Code eingefügt...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPU:= Get8087ControlWord;
  Set8087ControlWord($133F)
end;

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Set8087ControlWord(FPU)
end;

Starten... :roll:

...der Hammer ! ohne Fehler im Netz drucken... :hello:

Danke an Euch und die Jedis... :cheers:

[Robert Marquardt]

Noch ein kleiner Hinweis. Es gibt noch SafeLoadLibrary in der VCL. Wir haben gerade die JCL und JVCL von LoadLibrary auf SafeLoadLibrary umgestellt. Hauptaufgabe von SafeLoadLibrary ist es das FPU Control Word zu sichern und restaurieren, um boese DLLs abzuwehren, die daran drehen.