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.21 - (hide annotations) (download)
Sat Oct 9 15:08:44 2004 UTC (19 years, 6 months ago) by yoffy
Branch: MAIN
Changes since 1.20: +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     SaveFile in 'SaveFile.pas',
23     Sort in 'Sort.pas',
24     ThreadControl in 'ThreadControl.pas',
25     ItemDownload in 'ItemDownload.pas',
26     RoundData in 'RoundData.pas',
27     RoundName in 'RoundName.pas' {RoundNameDialog},
28     NewBoard in 'NewBoard.pas' {NewBoardDialog},
29     Dolib in 'Dolib.pas',
30     UBase64 in 'Encrypt\UBase64.pas',
31     UCryptAuto in 'Encrypt\UCryptAuto.pas',
32     KeySetting in 'KeySetting.pas' {KeySettingForm},
33     FavoriteAdd in 'FavoriteAdd.pas' {FavoriteAddDialog},
34     NewFavoriteFolder in 'NewFavoriteFolder.pas' {NewFavoriteFolderDialog},
35     FavoriteArrange in 'FavoriteArrange.pas' {FavoriteArrangeDialog},
36     Favorite in 'Favorite.pas' {FavoriteDM: TDataModule},
37     AddressHistory in 'AddressHistory.pas' {AddressHistoryDM: TDataModule},
38     Preview in 'Preview.pas',
39     HTMLDocumentEvent in 'HTMLDocumentEvent.pas',
40     Kotehan in 'Kotehan.pas' {KotehanDialog},
41     MonaUtils in 'MonaUtils.pas',
42     HintWindow in 'HintWindow.pas',
43 yoffy 1.2 GikoUtil in 'GikoUtil.pas',
44     ToolBarSetting in 'ToolBarSetting.pas' {ToolBarSettingDialog},
45     ToolBarUtil in 'ToolBarUtil.pas',
46 h677 1.3 YofUtils in 'YofUtils.pas',
47 h677 1.4 AbonUnit in 'AbonUnit.pas',
48 yoffy 1.5 IndividualAbon in 'IndividualAbon.pas' {IndividualAbonForm},
49     Trip in 'Trip.pas',
50 yoffy 1.7 GikoXMLDoc in 'GikoXMLDoc.pas',
51 yoffy 1.8 ExternalBoardManager in 'ExternalBoardManager.pas',
52     ExternalThreadItem in 'ExternalThreadItem.pas',
53     ExternalBoardItem in 'ExternalBoardItem.pas',
54     ExternalBoardPlugInMain in 'ExternalBoardPlugInMain.pas',
55 h677 1.15 ExternalFilePath in 'ExternalFilePath.pas',
56 genyakun 1.17 MojuUtils in 'MojuUtils.pas',
57     crc in 'gzip_delphi2\crc.pas',
58     gzip in 'gzip_delphi2\gzip.pas',
59     zlib in 'gzip_delphi2\zlib.pas',
60     bmRegExp in 'bmRegExp\bmregexp.pas',
61     GikoCoolBar in 'Component\GikoCoolBar.pas',
62     GikoListView in 'Component\GikoListView.pas',
63 genyakun 1.19 GikoPanel in 'Component\GikoPanel.pas',
64 yoffy 1.21 KuroutSetting in 'KuroutSetting.pas' {KuroutOption},
65     GikoDB in 'GikoDB.pas';
66 hi_ 1.1
67     {$R *.RES}
68     {$R gikoResource.res}
69    
70     var
71     hMutex: THandle;
72     Wnd{, AppWnd}: HWnd;
73     i: Integer;
74     CDS: TCopyDataStruct;
75     const
76     MutexString: string = 'gikoNaviInstance';
77     begin
78     hMutex := OpenMutex(MUTEX_ALL_ACCESS, False, PChar(MutexString));
79     if hMutex <> 0 then begin
80     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?
81     Wnd := FindWindow('TGikoForm', nil);
82     if Wnd <> 0 then begin
83     //鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
84     SetForegroundWindow(Wnd);
85     if IsIconic(Wnd) then
86     SendMessage(Wnd, WM_SYSCOMMAND, SC_RESTORE, -1);
87     // AppWnd := GetWindowLong(Wnd, GWL_HWNDPARENT);
88     // if (AppWnd <> 0) and (IsIconic(AppWnd)) then
89     // SendMessage(AppWnd, WM_SYSCOMMAND, SC_RESTORE, -1);
90    
91     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
92     for i := 1 to ParamCount do begin
93     CDS.dwData := 0;
94     CDS.cbData := Length(ParamStr(i)) + 1;
95     GetMem(CDS.lpData, CDS.cbData);
96     try
97     StrPCopy(CDS.lpData, ParamStr(i));
98     SendMessage(Wnd, WM_COPYDATA, 0, LParam(@CDS));
99     finally
100     FreeMem(CDS.lpData);
101     end;
102     end;
103     end;
104 yoffy 1.6
105 hi_ 1.1 CloseHandle(hMutex);
106     end else begin
107     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?
108     hMutex := CreateMutex(nil, False, PChar(MutexString));
109     Application.Initialize;
110     Application.Title := '鐃?鐃?鐃?鐃?';
111     Application.ShowMainForm := False;
112     Application.CreateForm(TMainWindow, MainWindow);
113     Application.CreateForm(TFavoriteDM, FavoriteDM);
114     Application.CreateForm(TAddressHistoryDM, AddressHistoryDM);
115     Application.CreateForm(TGikoForm, GikoForm);
116     Application.Run;
117     ReleaseMutex(hMutex);
118     end;
119     end.
120    

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