コミット: 4a1bca1acd79c119e0ae7a232d6f9e68c8f3acae - gikonavi (git)

ギコナビ

コミットメタ情報

• リビジョン: 4a1bca1acd79c119e0ae7a232d6f9e68c8f3acae (tree)
• 日時: 2011-10-22 12:39:22
• 作者: h677 <h677>
• コミッター: h677

ログメッセージ

IE9の時に、ゼロ割例外を無視するように修正

変更サマリ

• modified: Giko.pas
• modified: gikoNavi.res

差分

--- a/Giko.pas
+++ b/Giko.pas
@@ -616,6 +616,7 @@ type
         FUpdateExePath: string;    ///ƒMƒRƒiƒrXVƒCƒ“ƒXƒg[ƒ‰ƒpƒX
         FUpdateExeArgs: string;    ///ƒMƒRƒiƒrXVƒCƒ“ƒXƒg[ƒ‰ˆø”
         FKokoPopupThreadItem: TThreadItem;
+        FCwSave: Word;  // 8087CW’l•Û‘¶
 		procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
 		procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
 		procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
@@ -747,7 +748,7 @@ type
 		property WorkCount: Integer read FWorkCount write FWorkCount;
         property UpdateExePath: string read FUpdateExePath write FUpdateExePath;
         property UpdateExeArgs: string read FUpdateExeArgs write FUpdateExeArgs;
-        
+
 		procedure SetContent(inThread: TBrowserRecord);
 		function GetActiveContent(popup :Boolean = false): TThreadItem;
 		function GetActiveList: TObject;
@@ -929,6 +930,13 @@ begin
 	Writeln('============================================================');
 {$ENDIF}
 //try
+    // ƒ[ƒŠ„—áŠO‚ÌŒ»Ý‚̐ݒè‚ð•Û‘¶‚·‚é
+    FCwSave := Get8087CW;
+    if ( AnsiPos('9.0', GikoSys.GetIEVersion()) = 1 ) then begin
+        // IE 9‚̏ꍇ‚¾‚¯A–³Œøƒrƒbƒg‚𗧂Ăé
+        Set8087CW(FCwSave or $0004);
+    end;
+    Set8087CW(FCwSave or $0004);
 	Sort.SetSortDate(Now());
 
 	FTreeType := gttNone;
@@ -1833,6 +1841,8 @@ begin
         // ƒAƒbƒvƒf[ƒgŽÀs
         GikoSys.CreateProcess(FUpdateExePath, FUpdateExeArgs);
     end;
+    // ƒ[ƒŠ„—áŠO‚ðŒ³‚É–ß‚·
+    Set8087CW(FCwSave);
 end;
 
 // ŠeŠ‚É‚ ‚éƒLƒƒƒrƒlƒbƒgE BBS ƒƒjƒ…[‚ðƒZƒbƒg^XV

Binary files a/gikoNavi.res and b/gikoNavi.res differ