3 {%ToDo 'gikoNavi.todo'}
10 MainForm in 'MainForm.pas' {MainWindow},
11 Giko in 'Giko.pas' {GikoForm},
12 Splash in 'Splash.pas' {SplashWindow},
13 About in 'About.pas' {AboutDialog},
14 Option in 'Option.pas' {OptionDialog},
15 Editor in 'Editor.pas' {EditorForm},
16 Round in 'Round.pas' {RoundDialog},
17 ListSelect in 'ListSelect.pas' {ListSelectDialog},
18 Search in 'Search.pas' {SearchDialog},
19 GikoSystem in 'GikoSystem.pas',
20 Setting in 'Setting.pas',
21 BoardGroup in 'BoardGroup.pas',
22 SaveFile in 'SaveFile.pas',
24 ThreadControl in 'ThreadControl.pas',
25 ItemDownload in 'ItemDownload.pas',
26 RoundData in 'RoundData.pas',
27 RoundName in 'RoundName.pas' {RoundNameDialog},
28 NewBoard in 'NewBoard.pas' {NewBoardDialog},
30 UBase64 in 'Encrypt\UBase64.pas',
31 UCryptAuto in 'Encrypt\UCryptAuto.pas',
32 KeySetting in 'KeySetting.pas' {KeySettingForm},
33 FavoriteAdd in 'FavoriteAdd.pas' {FavoriteAddDialog},
34 NewFavoriteFolder in 'NewFavoriteFolder.pas' {NewFavoriteFolderDialog},
35 FavoriteArrange in 'FavoriteArrange.pas' {FavoriteArrangeDialog},
36 Favorite in 'Favorite.pas' {FavoriteDM: TDataModule},
37 AddressHistory in 'AddressHistory.pas' {AddressHistoryDM: TDataModule},
38 Preview in 'Preview.pas',
39 HTMLDocumentEvent in 'HTMLDocumentEvent.pas',
40 Kotehan in 'Kotehan.pas' {KotehanDialog},
41 MonaUtils in 'MonaUtils.pas',
42 HintWindow in 'HintWindow.pas',
43 GikoUtil in 'GikoUtil.pas',
44 ToolBarSetting in 'ToolBarSetting.pas' {ToolBarSettingDialog},
45 ToolBarUtil in 'ToolBarUtil.pas',
46 YofUtils in 'YofUtils.pas',
47 AbonUnit in 'AbonUnit.pas',
48 IndividualAbon in 'IndividualAbon.pas' {IndividualAbonForm},
50 GikoXMLDoc in 'GikoXMLDoc.pas',
51 ExternalBoardManager in 'ExternalBoardManager.pas';
62 MutexString: string = 'gikoNaviInstance';
64 hMutex := OpenMutex(MUTEX_ALL_ACCESS, False, PChar(MutexString));
65 if hMutex <> 0 then begin
66 //
\83~
\83\85\81[
\83e
\83b
\83N
\83X
\82ª
\91¶
\8dÝ
\82µ
\82½
\8fê
\8d\87\82Í
\8bN
\93®
\92\86\8e~
67 Wnd := FindWindow('TGikoForm', nil);
68 if Wnd <> 0 then begin
69 //
\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³
70 SetForegroundWindow(Wnd);
72 SendMessage(Wnd, WM_SYSCOMMAND, SC_RESTORE, -1);
73 // AppWnd := GetWindowLong(Wnd, GWL_HWNDPARENT);
74 // if (AppWnd <> 0) and (IsIconic(AppWnd)) then
75 // SendMessage(AppWnd, WM_SYSCOMMAND, SC_RESTORE, -1);
77 //
\82Å
\81A
\88ø
\90\94\82ª
\82 \82Á
\82½
\82ç
\8bN
\93®
\8dÏ
\82Ý
\83M
\83R
\83i
\83r
\82É
\91\97\82é
78 for i := 1 to ParamCount do begin
80 CDS.cbData := Length(ParamStr(i)) + 1;
81 GetMem(CDS.lpData, CDS.cbData);
83 StrPCopy(CDS.lpData, ParamStr(i));
84 SendMessage(Wnd, WM_COPYDATA, 0, LParam(@CDS));
93 //
\83~
\83\85\81[
\83e
\83b
\83N
\83X
\82ª
\91¶
\8dÝ
\82µ
\82È
\82¢
\8fê
\8d\87\82Í
\83A
\83v
\83\8a\83P
\81[
\83V
\83\87\83\93\8bN
\93®
\91±
\8ds
94 hMutex := CreateMutex(nil, False, PChar(MutexString));
95 Application.Initialize;
96 Application.Title := '
\83M
\83R
\83i
\83r';
97 Application.ShowMainForm := False;
98 Application.CreateForm(TMainWindow, MainWindow);
99 Application.CreateForm(TFavoriteDM, FavoriteDM);
100 Application.CreateForm(TAddressHistoryDM, AddressHistoryDM);
101 Application.CreateForm(TGikoForm, GikoForm);
103 ReleaseMutex(hMutex);