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.48 - (hide annotations) (download)
Sun Mar 29 06:16:44 2009 UTC (15 years ago) by h677
Branch: MAIN
CVS Tags: v1_60_0_788, v1_60_0_789, v1_60_0_787, v1_60_1_793, v1_60_0_793, v1_60_0_792, v1_60_0_791, v1_60_0_790, v1_60_2_794
Branch point for: Bb60
Changes since 1.47: +1 -1 lines
zlibを1.2.3に更新
(OpenJaneで配布しているものを利用させてもらってます。
 http://www.geocities.jp/janeiyayo/gzip_delphi2.zip)

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 h677 1.48 {crc in 'gzip_delphi2\crc.pas', //zlib鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申}
56 genyakun 1.17 gzip in 'gzip_delphi2\gzip.pas',
57     zlib in 'gzip_delphi2\zlib.pas',
58     bmRegExp in 'bmRegExp\bmregexp.pas',
59     GikoCoolBar in 'Component\GikoCoolBar.pas',
60     GikoListView in 'Component\GikoListView.pas',
61 genyakun 1.19 GikoPanel in 'Component\GikoPanel.pas',
62 yoffy 1.21 KuroutSetting in 'KuroutSetting.pas' {KuroutOption},
63 yoffy 1.22 GikoDB in 'GikoDB.pas',
64     GestureModel in 'GestureModel.pas',
65 yoffy 1.23 Gesture in 'Gesture.pas',
66 h677 1.24 GikoBayesian in 'GikoBayesian.pas',
67 h677 1.25 Y_TextConverter in 'res\ExternalBoardPlugIn\Y_TextConverter.pas',
68 h677 1.26 HTMLCreate in 'HTMLCreate.pas',
69 h677 1.27 ListViewUtils in 'ListViewUtils.pas',
70 h677 1.29 GikoDataModule in 'GikoDataModule.pas' {GikoDM: TDataModule},
71 h677 1.30 BrowserRecord in 'BrowserRecord.pas',
72 h677 1.32 GikoMessage in 'GikoMessage.pas',
73     InputAssist in 'InputAssist.pas' {InputAssistForm},
74 h677 1.34 InputAssistDataModule in 'InputAssistDataModule.pas' {InputAssistDM: TDataModule},
75 h677 1.35 DefaultFileManager in 'DefaultFileManager.pas',
76 h677 1.36 MoveHistoryItem in 'MoveHistoryItem.pas',
77 h677 1.37 SambaTimer in 'SambaTimer.pas',
78 h677 1.41 HistoryList in 'HistoryList.pas',
79 h677 1.42 ReplaceDataModule in 'ReplaceDataModule.pas' {ReplaceDM: TDataModule},
80 h677 1.43 ResPopupBrowser in 'ResPopupBrowser.pas',
81 h677 1.44 SkinFiles in 'SkinFiles.pas',
82 h677 1.45 NewBoardURL in 'NewBoardURL.pas' {NewBoardURLForm},
83 h677 1.47 ExtPreviewDatamodule in 'ExtPreviewDatamodule.pas' {ExtPreviewDM: TDataModule},
84     UpdateCheck in 'UpdateCheck.pas' {UpdateCheckForm};
85 hi_ 1.1
86     {$R *.RES}
87     {$R gikoResource.res}
88    
89     var
90     hMutex: THandle;
91     Wnd{, AppWnd}: HWnd;
92     i: Integer;
93     CDS: TCopyDataStruct;
94     const
95     MutexString: string = 'gikoNaviInstance';
96     begin
97     hMutex := OpenMutex(MUTEX_ALL_ACCESS, False, PChar(MutexString));
98     if hMutex <> 0 then begin
99     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?
100     Wnd := FindWindow('TGikoForm', nil);
101     if Wnd <> 0 then begin
102     //鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
103 h677 1.31 try
104     SetForegroundWindow(Wnd);
105     except
106     //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申
107     end;
108 hi_ 1.1 if IsIconic(Wnd) then
109     SendMessage(Wnd, WM_SYSCOMMAND, SC_RESTORE, -1);
110     // AppWnd := GetWindowLong(Wnd, GWL_HWNDPARENT);
111     // if (AppWnd <> 0) and (IsIconic(AppWnd)) then
112     // SendMessage(AppWnd, WM_SYSCOMMAND, SC_RESTORE, -1);
113    
114     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
115     for i := 1 to ParamCount do begin
116     CDS.dwData := 0;
117     CDS.cbData := Length(ParamStr(i)) + 1;
118     GetMem(CDS.lpData, CDS.cbData);
119     try
120     StrPCopy(CDS.lpData, ParamStr(i));
121     SendMessage(Wnd, WM_COPYDATA, 0, LParam(@CDS));
122     finally
123     FreeMem(CDS.lpData);
124     end;
125     end;
126     end;
127 yoffy 1.6
128 hi_ 1.1 CloseHandle(hMutex);
129     end else begin
130     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?
131     hMutex := CreateMutex(nil, False, PChar(MutexString));
132     Application.Initialize;
133     Application.Title := '鐃?鐃?鐃?鐃?';
134     Application.ShowMainForm := False;
135     Application.CreateForm(TMainWindow, MainWindow);
136     Application.CreateForm(TFavoriteDM, FavoriteDM);
137     Application.CreateForm(TAddressHistoryDM, AddressHistoryDM);
138 h677 1.28 Application.CreateForm(TGikoDM, GikoDM);
139 h677 1.32 Application.CreateForm(TInputAssistDM, InputAssistDM);
140 h677 1.41 Application.CreateForm(TReplaceDM, ReplaceDM);
141 h677 1.46 Application.CreateForm(TExtPreviewDM, ExtPreviewDM);
142 hi_ 1.1 Application.CreateForm(TGikoForm, GikoForm);
143 h677 1.47 Application.CreateForm(TUpdateCheckForm, UpdateCheckForm);
144 hi_ 1.1 Application.Run;
145     ReleaseMutex(hMutex);
146     end;
147     end.
148    

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