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.44 - (hide annotations) (download)
Sun Sep 9 07:11:58 2007 UTC (16 years, 7 months ago) by h677
Branch: MAIN
CVS Tags: v1_57_0_737, v1_57_0_735, v1_57_0_734, v1_57_0_733, v1_57_0_732, v1_57_0_731, v1_57_0_730, v1_57_0_739, v1_57_0_738, v1_57_1_744, v1_57_0_736, v1_57_2_749, v1_57_0_742, v1_57_0_743, v1_57_0_740, v1_57_0_741, v1_57_0_744
Branch point for: Bb57
Changes since 1.43: +2 -1 lines
Settingのメモリリーク修正。
NewBoardURLのメモリリーク修正。
ツールバーのFontがメモリリークする(?)っぽいので微妙な修正追加

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

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