Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.700 by h677, Sun Sep 11 09:42:08 2011 UTC revision 1.701 by h677, Sat Oct 22 03:39:22 2011 UTC
# Line 616  type Line 616  type
616          FUpdateExePath: string;    ///ギコナビ更新インストーラパス          FUpdateExePath: string;    ///ギコナビ更新インストーラパス
617          FUpdateExeArgs: string;    ///ギコナビ更新インストーラ引数          FUpdateExeArgs: string;    ///ギコナビ更新インストーラ引数
618          FKokoPopupThreadItem: TThreadItem;          FKokoPopupThreadItem: TThreadItem;
619            FCwSave: Word;  // 8087CW値保存
620                  procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);                  procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
621                  procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);                  procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
622                  procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);                  procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
# Line 747  type Line 748  type
748                  property WorkCount: Integer read FWorkCount write FWorkCount;                  property WorkCount: Integer read FWorkCount write FWorkCount;
749          property UpdateExePath: string read FUpdateExePath write FUpdateExePath;          property UpdateExePath: string read FUpdateExePath write FUpdateExePath;
750          property UpdateExeArgs: string read FUpdateExeArgs write FUpdateExeArgs;          property UpdateExeArgs: string read FUpdateExeArgs write FUpdateExeArgs;
751            
752                  procedure SetContent(inThread: TBrowserRecord);                  procedure SetContent(inThread: TBrowserRecord);
753                  function GetActiveContent(popup :Boolean = false): TThreadItem;                  function GetActiveContent(popup :Boolean = false): TThreadItem;
754                  function GetActiveList: TObject;                  function GetActiveList: TObject;
# Line 929  begin Line 930  begin
930          Writeln('============================================================');          Writeln('============================================================');
931  {$ENDIF}  {$ENDIF}
932  //try  //try
933        // ゼロ割例外の現在の設定を保存する
934        FCwSave := Get8087CW;
935        if ( AnsiPos('9.0', GikoSys.GetIEVersion()) = 1 ) then begin
936            // IE 9の場合だけ、無効ビットを立てる
937            Set8087CW(FCwSave or $0004);
938        end;
939        Set8087CW(FCwSave or $0004);
940          Sort.SetSortDate(Now());          Sort.SetSortDate(Now());
941    
942          FTreeType := gttNone;          FTreeType := gttNone;
# Line 1833  begin Line 1841  begin
1841          // アップデート実行          // アップデート実行
1842          GikoSys.CreateProcess(FUpdateExePath, FUpdateExeArgs);          GikoSys.CreateProcess(FUpdateExePath, FUpdateExeArgs);
1843      end;      end;
1844        // ゼロ割例外を元に戻す
1845        Set8087CW(FCwSave);
1846  end;  end;
1847    
1848  // 各所にあるキャビネット・ BBS メニューをセット/更新  // 各所にあるキャビネット・ BBS メニューをセット/更新

Legend:
Removed from v.1.700  
changed lines
  Added in v.1.701

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26