X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=gikoNavi.dpr;h=1eba8b8024c6a4f8980df7932370cd7431f4ede6;hb=refs%2Fheads%2FBb52;hp=6077980e51dec63d783dcd90599a4704ffab73d0;hpb=de93ce4b5ee888cb272b8d5ef948c9902ae3b980;p=gikonavigoeson%2Fgikonavi.git

diff --git a/gikoNavi.dpr b/gikoNavi.dpr
index 6077980..1eba8b8 100644
--- 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
 			//Šù‚É‹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);
@@ -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);