| 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); |
| 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; |
| 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; |
| 1841 |
// アップデート実行 |
// アップデート実行 |
| 1842 |
GikoSys.CreateProcess(FUpdateExePath, FUpdateExeArgs); |
GikoSys.CreateProcess(FUpdateExePath, FUpdateExeArgs); |
| 1843 |
end; |
end; |
| 1844 |
|
// ゼロ割例外を元に戻す |
| 1845 |
|
Set8087CW(FCwSave); |
| 1846 |
end; |
end; |
| 1847 |
|
|
| 1848 |
// 各所にあるキャビネット・ BBS メニューをセット/更新 |
// 各所にあるキャビネット・ BBS メニューをセット/更新 |