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.1 - (show annotations) (download)
Sat Aug 9 13:51:00 2003 UTC (20 years, 8 months ago) by hi_
Branch: MAIN
Branch point for: hi
Initial revision

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 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 GikoUtil in 'GikoUtil.pas';
44
45 {$R *.RES}
46 {$R gikoResource.res}
47
48 var
49 hMutex: THandle;
50 Wnd{, AppWnd}: HWnd;
51 i: Integer;
52 CDS: TCopyDataStruct;
53 const
54 MutexString: string = 'gikoNaviInstance';
55 begin
56 hMutex := OpenMutex(MUTEX_ALL_ACCESS, False, PChar(MutexString));
57 if hMutex <> 0 then begin
58 //�~���[�e�b�N�X�����������������N�����~
59 Wnd := FindWindow('TGikoForm', nil);
60 if Wnd <> 0 then begin
61 //�����N�������M�R�i�r���A�N�e�B�u�����A�C�R������������������
62 SetForegroundWindow(Wnd);
63 if IsIconic(Wnd) then
64 SendMessage(Wnd, WM_SYSCOMMAND, SC_RESTORE, -1);
65 // AppWnd := GetWindowLong(Wnd, GWL_HWNDPARENT);
66 // if (AppWnd <> 0) and (IsIconic(AppWnd)) then
67 // SendMessage(AppWnd, WM_SYSCOMMAND, SC_RESTORE, -1);
68
69 //���A���������������N�������M�R�i�r������
70 for i := 1 to ParamCount do begin
71 CDS.dwData := 0;
72 CDS.cbData := Length(ParamStr(i)) + 1;
73 GetMem(CDS.lpData, CDS.cbData);
74 try
75 StrPCopy(CDS.lpData, ParamStr(i));
76 SendMessage(Wnd, WM_COPYDATA, 0, LParam(@CDS));
77 finally
78 FreeMem(CDS.lpData);
79 end;
80 end;
81 end;
82 CloseHandle(hMutex);
83 end else begin
84 //�~���[�e�b�N�X�������������������A�v���P�[�V�����N�����s
85 hMutex := CreateMutex(nil, False, PChar(MutexString));
86 Application.Initialize;
87 Application.Title := '�M�R�i�r';
88 Application.ShowMainForm := False;
89 Application.CreateForm(TMainWindow, MainWindow);
90 Application.CreateForm(TFavoriteDM, FavoriteDM);
91 Application.CreateForm(TAddressHistoryDM, AddressHistoryDM);
92 Application.CreateForm(TGikoForm, GikoForm);
93 Application.Run;
94 ReleaseMutex(hMutex);
95 end;
96 end.
97

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