Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/gikoNavi.dpr

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


Revision 1.50 - (show 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 program gikoNavi;
2
3 {%ToDo 'gikoNavi.todo'}
4
5 uses
6 Windows,
7 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 GikoUtil in 'GikoUtil.pas',
42 ToolBarSetting in 'ToolBarSetting.pas' {ToolBarSettingDialog},
43 ToolBarUtil in 'ToolBarUtil.pas',
44 YofUtils in 'YofUtils.pas',
45 AbonUnit in 'AbonUnit.pas',
46 IndividualAbon in 'IndividualAbon.pas' {IndividualAbonForm},
47 Trip in 'Trip.pas',
48 GikoXMLDoc in 'GikoXMLDoc.pas',
49 ExternalBoardManager in 'ExternalBoardManager.pas',
50 ExternalThreadItem in 'ExternalThreadItem.pas',
51 ExternalBoardItem in 'ExternalBoardItem.pas',
52 ExternalBoardPlugInMain in 'ExternalBoardPlugInMain.pas',
53 ExternalFilePath in 'ExternalFilePath.pas',
54 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 GikoPanel in 'Component\GikoPanel.pas',
61 KuroutSetting in 'KuroutSetting.pas' {KuroutOption},
62 GikoDB in 'GikoDB.pas',
63 GestureModel in 'GestureModel.pas',
64 Gesture in 'Gesture.pas',
65 GikoBayesian in 'GikoBayesian.pas',
66 Y_TextConverter in 'res\ExternalBoardPlugIn\Y_TextConverter.pas',
67 HTMLCreate in 'HTMLCreate.pas',
68 ListViewUtils in 'ListViewUtils.pas',
69 GikoDataModule in 'GikoDataModule.pas' {GikoDM: TDataModule},
70 BrowserRecord in 'BrowserRecord.pas',
71 GikoMessage in 'GikoMessage.pas',
72 InputAssist in 'InputAssist.pas' {InputAssistForm},
73 InputAssistDataModule in 'InputAssistDataModule.pas' {InputAssistDM: TDataModule},
74 DefaultFileManager in 'DefaultFileManager.pas',
75 MoveHistoryItem in 'MoveHistoryItem.pas',
76 SambaTimer in 'SambaTimer.pas',
77 HistoryList in 'HistoryList.pas',
78 ReplaceDataModule in 'ReplaceDataModule.pas' {ReplaceDM: TDataModule},
79 ResPopupBrowser in 'ResPopupBrowser.pas',
80 SkinFiles in 'SkinFiles.pas',
81 NewBoardURL in 'NewBoardURL.pas' {NewBoardURLForm},
82 ExtPreviewDatamodule in 'ExtPreviewDatamodule.pas' {ExtPreviewDM: TDataModule},
83 UpdateCheck in 'UpdateCheck.pas' {UpdateCheckForm},
84 SHA1Unit in 'SHA1Unit.pas',
85 PopupMenuUtil in 'PopupMenuUtil.pas';
86
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 try
105 SetForegroundWindow(Wnd);
106 except
107 //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申
108 end;
109 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
129 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 Application.CreateForm(TGikoDM, GikoDM);
140 Application.CreateForm(TInputAssistDM, InputAssistDM);
141 Application.CreateForm(TReplaceDM, ReplaceDM);
142 Application.CreateForm(TExtPreviewDM, ExtPreviewDM);
143 Application.CreateForm(TGikoForm, GikoForm);
144 Application.CreateForm(TUpdateCheckForm, UpdateCheckForm);
145 Application.Run;
146 ReleaseMutex(hMutex);
147 end;
148 end.
149

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