1.52.1.658

[gikonavigoeson/gikonavi.git] / gikoNavi.dpr

diff --git a/gikoNavi.dpr b/gikoNavi.dpr
index 6077980..1eba8b8 100644 (file)
--- a/gikoNavi.dpr
+++ b/gikoNavi.dpr
@@ -68,7 +68,12 @@ uses
   GikoBayesian in 'GikoBayesian.pas',
   Y_TextConverter in 'res\ExternalBoardPlugIn\Y_TextConverter.pas',
   HTMLCreate in 'HTMLCreate.pas',
-  ListViewUtils in 'ListViewUtils.pas';
+  ListViewUtils in 'ListViewUtils.pas',
+  GikoDataModule in 'GikoDataModule.pas' {GikoDM: TDataModule},
+  BrowserRecord in 'BrowserRecord.pas',
+  GikoMessage in 'GikoMessage.pas',
+  InputAssist in 'InputAssist.pas' {InputAssistForm},
+  InputAssistDataModule in 'InputAssistDataModule.pas' {InputAssistDM: TDataModule};
 
 {$R *.RES}
 {$R gikoResource.res}
@@ -87,7 +92,11 @@ begin
                Wnd := FindWindow('TGikoForm', nil);
                if Wnd <> 0 then begin
                        //\8aù\82É\8bN\93®\8dÏ\82Ý\83M\83R\83i\83r\82Ì\83A\83N\83e\83B\83u\89»\81\95\83A\83C\83R\83\93\89»\82³\82ê\82Ä\82½\82ç\95\9c\8c³
-                       SetForegroundWindow(Wnd);
+                       try
+                               SetForegroundWindow(Wnd);
+                       except
+               //\8f\89\8aú\89»\82ª\8fI\82í\82Á\82Ä\82¢\82È\82¢\82Æ\83t\83H\83A\83O\83\89\83E\83\93\83h\82É\88Ú\82¹\82¸\82É\97á\8aO\94­\90¶
+                       end;
                        if IsIconic(Wnd) then
                                SendMessage(Wnd, WM_SYSCOMMAND, SC_RESTORE, -1);
 //                     AppWnd := GetWindowLong(Wnd, GWL_HWNDPARENT);
@@ -118,6 +127,8 @@ begin
                Application.CreateForm(TMainWindow, MainWindow);
   Application.CreateForm(TFavoriteDM, FavoriteDM);
   Application.CreateForm(TAddressHistoryDM, AddressHistoryDM);
+  Application.CreateForm(TGikoDM, GikoDM);
+  Application.CreateForm(TInputAssistDM, InputAssistDM);
   Application.CreateForm(TGikoForm, GikoForm);
   Application.Run;
                ReleaseMutex(hMutex);