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.50 - (hide annotations) (download)
Sat Jul 11 04:34:17 2009 UTC (14 years, 9 months ago) by h677
Branch: MAIN
CVS Tags: v1_61_0_798
Changes since 1.49: +2 -1 lines
ポップアップメニューのカスタマイズ化への道第一歩。
ブラウザタブを設定可能にした。

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     PopupMenuUtil in 'PopupMenuUtil.pas';
86 hi_ 1.1
87     {$R *.RES}
88     {$R gikoResource.res}
89    
90     var
91     hMutex: THandle;
92     Wnd{, AppWnd}: HWnd;
93     i: Integer;
94     CDS: TCopyDataStruct;
95     const
96     MutexString: string = 'gikoNaviInstance';
97     begin
98     hMutex := OpenMutex(MUTEX_ALL_ACCESS, False, PChar(MutexString));
99     if hMutex <> 0 then begin
100     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?
101     Wnd := FindWindow('TGikoForm', nil);
102     if Wnd <> 0 then begin
103     //鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
104 h677 1.31 try
105     SetForegroundWindow(Wnd);
106     except
107     //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申
108     end;
109 hi_ 1.1 if IsIconic(Wnd) then
110     SendMessage(Wnd, WM_SYSCOMMAND, SC_RESTORE, -1);
111     // AppWnd := GetWindowLong(Wnd, GWL_HWNDPARENT);
112     // if (AppWnd <> 0) and (IsIconic(AppWnd)) then
113     // SendMessage(AppWnd, WM_SYSCOMMAND, SC_RESTORE, -1);
114    
115     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
116     for i := 1 to ParamCount do begin
117     CDS.dwData := 0;
118     CDS.cbData := Length(ParamStr(i)) + 1;
119     GetMem(CDS.lpData, CDS.cbData);
120     try
121     StrPCopy(CDS.lpData, ParamStr(i));
122     SendMessage(Wnd, WM_COPYDATA, 0, LParam(@CDS));
123     finally
124     FreeMem(CDS.lpData);
125     end;
126     end;
127     end;
128 yoffy 1.6
129 hi_ 1.1 CloseHandle(hMutex);
130     end else begin
131     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?
132     hMutex := CreateMutex(nil, False, PChar(MutexString));
133     Application.Initialize;
134     Application.Title := '鐃?鐃?鐃?鐃?';
135     Application.ShowMainForm := False;
136     Application.CreateForm(TMainWindow, MainWindow);
137     Application.CreateForm(TFavoriteDM, FavoriteDM);
138     Application.CreateForm(TAddressHistoryDM, AddressHistoryDM);
139 h677 1.28 Application.CreateForm(TGikoDM, GikoDM);
140 h677 1.32 Application.CreateForm(TInputAssistDM, InputAssistDM);
141 h677 1.41 Application.CreateForm(TReplaceDM, ReplaceDM);
142 h677 1.46 Application.CreateForm(TExtPreviewDM, ExtPreviewDM);
143 hi_ 1.1 Application.CreateForm(TGikoForm, GikoForm);
144 h677 1.47 Application.CreateForm(TUpdateCheckForm, UpdateCheckForm);
145 hi_ 1.1 Application.Run;
146     ReleaseMutex(hMutex);
147     end;
148     end.
149    

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