Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/gikoNavi.dpr

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.52 - (hide annotations) (download)
Tue Feb 22 13:37:51 2011 UTC (13 years, 1 month ago) by h677
Branch: MAIN
CVS Tags: v1_63_1_819, v1_62_0_812, v1_63_0_818, v1_63_0_817, v1_63_0_816, v1_63_0_815, v1_62_0_809, v1_62_0_810, v1_62_0_811, v1_62_1_813, HEAD
Branch point for: Bb62, Bb63
Changes since 1.51: +2 -1 lines
Beのログインに対応
Folder.iniに冒険の書が記録されている場合削除する処理を追加

1 hi_ 1.1 program gikoNavi;
2    
3     {%ToDo 'gikoNavi.todo'}
4    
5     uses
6 yoffy 1.14 Windows,
7 hi_ 1.1 SysUtils,
8     Forms,
9     Messages,
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     Sort in 'Sort.pas',
23     ThreadControl in 'ThreadControl.pas',
24     ItemDownload in 'ItemDownload.pas',
25     RoundData in 'RoundData.pas',
26     RoundName in 'RoundName.pas' {RoundNameDialog},
27     NewBoard in 'NewBoard.pas' {NewBoardDialog},
28     Dolib in 'Dolib.pas',
29     UBase64 in 'Encrypt\UBase64.pas',
30     UCryptAuto in 'Encrypt\UCryptAuto.pas',
31     KeySetting in 'KeySetting.pas' {KeySettingForm},
32     FavoriteAdd in 'FavoriteAdd.pas' {FavoriteAddDialog},
33     NewFavoriteFolder in 'NewFavoriteFolder.pas' {NewFavoriteFolderDialog},
34     FavoriteArrange in 'FavoriteArrange.pas' {FavoriteArrangeDialog},
35     Favorite in 'Favorite.pas' {FavoriteDM: TDataModule},
36     AddressHistory in 'AddressHistory.pas' {AddressHistoryDM: TDataModule},
37     Preview in 'Preview.pas',
38     HTMLDocumentEvent in 'HTMLDocumentEvent.pas',
39     Kotehan in 'Kotehan.pas' {KotehanDialog},
40     HintWindow in 'HintWindow.pas',
41 yoffy 1.2 GikoUtil in 'GikoUtil.pas',
42     ToolBarSetting in 'ToolBarSetting.pas' {ToolBarSettingDialog},
43     ToolBarUtil in 'ToolBarUtil.pas',
44 h677 1.3 YofUtils in 'YofUtils.pas',
45 h677 1.4 AbonUnit in 'AbonUnit.pas',
46 yoffy 1.5 IndividualAbon in 'IndividualAbon.pas' {IndividualAbonForm},
47     Trip in 'Trip.pas',
48 yoffy 1.7 GikoXMLDoc in 'GikoXMLDoc.pas',
49 yoffy 1.8 ExternalBoardManager in 'ExternalBoardManager.pas',
50     ExternalThreadItem in 'ExternalThreadItem.pas',
51     ExternalBoardItem in 'ExternalBoardItem.pas',
52     ExternalBoardPlugInMain in 'ExternalBoardPlugInMain.pas',
53 h677 1.15 ExternalFilePath in 'ExternalFilePath.pas',
54 genyakun 1.17 MojuUtils in 'MojuUtils.pas',
55     gzip in 'gzip_delphi2\gzip.pas',
56     zlib in 'gzip_delphi2\zlib.pas',
57     bmRegExp in 'bmRegExp\bmregexp.pas',
58     GikoCoolBar in 'Component\GikoCoolBar.pas',
59     GikoListView in 'Component\GikoListView.pas',
60 genyakun 1.19 GikoPanel in 'Component\GikoPanel.pas',
61 yoffy 1.21 KuroutSetting in 'KuroutSetting.pas' {KuroutOption},
62 yoffy 1.22 GikoDB in 'GikoDB.pas',
63     GestureModel in 'GestureModel.pas',
64 yoffy 1.23 Gesture in 'Gesture.pas',
65 h677 1.24 GikoBayesian in 'GikoBayesian.pas',
66 h677 1.25 Y_TextConverter in 'res\ExternalBoardPlugIn\Y_TextConverter.pas',
67 h677 1.26 HTMLCreate in 'HTMLCreate.pas',
68 h677 1.27 ListViewUtils in 'ListViewUtils.pas',
69 h677 1.29 GikoDataModule in 'GikoDataModule.pas' {GikoDM: TDataModule},
70 h677 1.30 BrowserRecord in 'BrowserRecord.pas',
71 h677 1.32 GikoMessage in 'GikoMessage.pas',
72     InputAssist in 'InputAssist.pas' {InputAssistForm},
73 h677 1.34 InputAssistDataModule in 'InputAssistDataModule.pas' {InputAssistDM: TDataModule},
74 h677 1.35 DefaultFileManager in 'DefaultFileManager.pas',
75 h677 1.36 MoveHistoryItem in 'MoveHistoryItem.pas',
76 h677 1.37 SambaTimer in 'SambaTimer.pas',
77 h677 1.41 HistoryList in 'HistoryList.pas',
78 h677 1.42 ReplaceDataModule in 'ReplaceDataModule.pas' {ReplaceDM: TDataModule},
79 h677 1.43 ResPopupBrowser in 'ResPopupBrowser.pas',
80 h677 1.44 SkinFiles in 'SkinFiles.pas',
81 h677 1.45 NewBoardURL in 'NewBoardURL.pas' {NewBoardURLForm},
82 h677 1.47 ExtPreviewDatamodule in 'ExtPreviewDatamodule.pas' {ExtPreviewDM: TDataModule},
83 h677 1.49 UpdateCheck in 'UpdateCheck.pas' {UpdateCheckForm},
84 h677 1.50 SHA1Unit in 'SHA1Unit.pas',
85 h677 1.51 PopupMenuUtil in 'PopupMenuUtil.pas',
86 h677 1.52 PopupMenuSetting in 'PopupMenuSetting.pas' {PopupMenuSettingDialog},
87     Belib in 'Belib.pas';
88 hi_ 1.1
89     {$R *.RES}
90     {$R gikoResource.res}
91    
92     var
93     hMutex: THandle;
94     Wnd{, AppWnd}: HWnd;
95     i: Integer;
96     CDS: TCopyDataStruct;
97     const
98     MutexString: string = 'gikoNaviInstance';
99     begin
100     hMutex := OpenMutex(MUTEX_ALL_ACCESS, False, PChar(MutexString));
101     if hMutex <> 0 then begin
102     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?
103     Wnd := FindWindow('TGikoForm', nil);
104     if Wnd <> 0 then begin
105     //鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
106 h677 1.31 try
107     SetForegroundWindow(Wnd);
108     except
109     //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申
110     end;
111 hi_ 1.1 if IsIconic(Wnd) then
112     SendMessage(Wnd, WM_SYSCOMMAND, SC_RESTORE, -1);
113     // AppWnd := GetWindowLong(Wnd, GWL_HWNDPARENT);
114     // if (AppWnd <> 0) and (IsIconic(AppWnd)) then
115     // SendMessage(AppWnd, WM_SYSCOMMAND, SC_RESTORE, -1);
116    
117     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
118     for i := 1 to ParamCount do begin
119     CDS.dwData := 0;
120     CDS.cbData := Length(ParamStr(i)) + 1;
121     GetMem(CDS.lpData, CDS.cbData);
122     try
123     StrPCopy(CDS.lpData, ParamStr(i));
124     SendMessage(Wnd, WM_COPYDATA, 0, LParam(@CDS));
125     finally
126     FreeMem(CDS.lpData);
127     end;
128     end;
129     end;
130 yoffy 1.6
131 hi_ 1.1 CloseHandle(hMutex);
132     end else begin
133     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?
134     hMutex := CreateMutex(nil, False, PChar(MutexString));
135     Application.Initialize;
136     Application.Title := '鐃?鐃?鐃?鐃?';
137     Application.ShowMainForm := False;
138     Application.CreateForm(TMainWindow, MainWindow);
139     Application.CreateForm(TFavoriteDM, FavoriteDM);
140     Application.CreateForm(TAddressHistoryDM, AddressHistoryDM);
141 h677 1.28 Application.CreateForm(TGikoDM, GikoDM);
142 h677 1.32 Application.CreateForm(TInputAssistDM, InputAssistDM);
143 h677 1.41 Application.CreateForm(TReplaceDM, ReplaceDM);
144 h677 1.46 Application.CreateForm(TExtPreviewDM, ExtPreviewDM);
145 hi_ 1.1 Application.CreateForm(TGikoForm, GikoForm);
146 h677 1.47 Application.CreateForm(TUpdateCheckForm, UpdateCheckForm);
147 hi_ 1.1 Application.Run;
148     ReleaseMutex(hMutex);
149     end;
150     end.
151    

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26