X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=gikoNavi.dpr;h=3493929458158b995df11b870fad64314d9b13fc;hb=043b4c01ac0f78838918c396338a8d9ad05ab9ef;hp=4aa984eff9954d6141e8aaf3672854d5de3dd204;hpb=21b5adc39ba262c88c77bdc5dd129ceb4a08f579;p=gikonavigoeson%2Fgikonavi.git diff --git a/gikoNavi.dpr b/gikoNavi.dpr index 4aa984e..3493929 100644 --- a/gikoNavi.dpr +++ b/gikoNavi.dpr @@ -19,7 +19,6 @@ uses GikoSystem in 'GikoSystem.pas', Setting in 'Setting.pas', BoardGroup in 'BoardGroup.pas', - SaveFile in 'SaveFile.pas', Sort in 'Sort.pas', ThreadControl in 'ThreadControl.pas', ItemDownload in 'ItemDownload.pas', @@ -38,7 +37,6 @@ uses Preview in 'Preview.pas', HTMLDocumentEvent in 'HTMLDocumentEvent.pas', Kotehan in 'Kotehan.pas' {KotehanDialog}, - MonaUtils in 'MonaUtils.pas', HintWindow in 'HintWindow.pas', GikoUtil in 'GikoUtil.pas', ToolBarSetting in 'ToolBarSetting.pas' {ToolBarSettingDialog}, @@ -71,7 +69,9 @@ uses ListViewUtils in 'ListViewUtils.pas', GikoDataModule in 'GikoDataModule.pas' {GikoDM: TDataModule}, BrowserRecord in 'BrowserRecord.pas', - GikoMessage in 'GikoMessage.pas'; + GikoMessage in 'GikoMessage.pas', + InputAssist in 'InputAssist.pas' {InputAssistForm}, + InputAssistDataModule in 'InputAssistDataModule.pas' {InputAssistDM: TDataModule}; {$R *.RES} {$R gikoResource.res} @@ -90,7 +90,11 @@ begin Wnd := FindWindow('TGikoForm', nil); if Wnd <> 0 then begin //Šù‚É‹N“®Ï‚݃MƒRƒiƒr‚̃AƒNƒeƒBƒu‰»•ƒAƒCƒRƒ“‰»‚³‚ê‚Ä‚½‚ç•œŒ³ - SetForegroundWindow(Wnd); + try + SetForegroundWindow(Wnd); + except + //‰Šú‰»‚ªI‚í‚Á‚Ä‚¢‚È‚¢‚ƃtƒHƒAƒOƒ‰ƒEƒ“ƒh‚Ɉڂ¹‚¸‚É—áŠO”­¶ + end; if IsIconic(Wnd) then SendMessage(Wnd, WM_SYSCOMMAND, SC_RESTORE, -1); // AppWnd := GetWindowLong(Wnd, GWL_HWNDPARENT); @@ -122,6 +126,7 @@ begin Application.CreateForm(TFavoriteDM, FavoriteDM); Application.CreateForm(TAddressHistoryDM, AddressHistoryDM); Application.CreateForm(TGikoDM, GikoDM); + Application.CreateForm(TInputAssistDM, InputAssistDM); Application.CreateForm(TGikoForm, GikoForm); Application.Run; ReleaseMutex(hMutex);