Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/ExternalFilePath.pas

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


Revision 1.2 - (hide annotations) (download) (as text)
Sat Nov 22 15:08:42 2003 UTC (20 years, 5 months ago) by yoffy
Branch: MAIN
CVS Tags: b49, b48, bv1_49_0_564, bv1_49_0_563, v1_50_0_557, v1_49_0_548, v1_49_0_540, v1_49_0_542, v1_49_0_545, v1_49_0_544, v1_49_0_547, b47, v1_48_0_530, b44, v1_49_0_554, v1_49_0_551, v1_48_0_510, bv1_49_0_565, v1_48_0_535, v1_49_0_552, v1_49_0_553, v1_49_0_546, v1_48_0_539, v1_48_0_538, b46, v1_48_0_533, v1_48_0_537, v1_49_2_569, v1_48_0_536, v1_49_0_541, v1_50_0_561
Branch point for: BRANCH_TORA, Bb49, stable
Changes since 1.1: +1 -1 lines
File MIME type: text/x-pascal
。ヲ・?ー、ホ・ユ・ゥ・?タ、ャ・ョ・ウ・ハ・モ・ユ・ゥ・?タクヌト熙ヒ、ハ、テ、ニ、、、ソ、ホ、ヌス、タオ。」

1 yoffy 1.1 unit ExternalFilePath;
2    
3     interface
4    
5     uses
6     Windows, Classes, SysUtils,
7     ExternalBoardPlugInMain;
8    
9     implementation
10    
11     uses GikoSystem;
12    
13     // *************************************************************************
14     // 繝悶Λ繧ヲ繧カ譛ャ菴薙′鄂ョ縺?※縺ゅk繝輔か繝ォ繝?
15     // *************************************************************************
16     function ApplicationFolder : PChar; stdcall;
17     begin
18    
19     Result := CreateResultString( GikoSys.GetAppDir );
20    
21     end;
22    
23     // *************************************************************************
24     // 蛻晄悄險ュ螳壹ヵ繧ゥ繝ォ繝?
25     // *************************************************************************
26     function PreferencesFolder : PChar; stdcall;
27     begin
28    
29     Result := CreateResultString( GikoSys.GetConfigDir );
30    
31     end;
32    
33     // *************************************************************************
34     // 蛻晄悄險ュ螳壹ヵ繧。繧、繝ォ
35     // *************************************************************************
36     function PreferencesFile : PChar; stdcall;
37     begin
38    
39     Result := CreateResultString( GikoSys.GetAppDir + 'gikoNavi.ini' );
40    
41     end;
42    
43     // *************************************************************************
44     // 繝ュ繧ー繝輔か繝ォ繝?
45     // *************************************************************************
46     function LogFolder : PChar; stdcall;
47     begin
48    
49 yoffy 1.2 Result := CreateResultString( IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) );
50 yoffy 1.1
51     end;
52    
53     // *************************************************************************
54     // CSS 繝輔か繝ォ繝?
55     // *************************************************************************
56     function CSSFolder : PChar; stdcall;
57     begin
58    
59     Result := CreateResultString( GikoSys.GetStyleSheetDir );
60    
61     end;
62    
63     // *************************************************************************
64     // 繧ケ繧ュ繝ウ繧貞?繧後※縺翫¥繝輔か繝ォ繝?
65     // *************************************************************************
66     function SkinFolder : PChar; stdcall;
67     begin
68    
69     Result := CreateResultString( GikoSys.GetSkinDir );
70    
71     end;
72    
73     // *************************************************************************
74     // 菴ソ逕ィ縺励※縺?k CSS / 繧ケ繧ュ繝ウ
75     // *************************************************************************
76     function SkinFile : PChar; stdcall;
77     begin
78    
79     Result := CreateResultString( GikoSys.Setting.CSSFileName );
80    
81     end;
82    
83     // *************************************************************************
84     // 縺ゅ⊂繝シ繧楢ヲ丞援縺檎スョ縺?※縺ゅk繝?ぅ繝ャ繧ッ繝医Μ
85     // *************************************************************************
86     function AbonFolder : PChar; stdcall;
87     begin
88    
89     Result := CreateResultString( GikoSys.Setting.GetNGWordsDir );
90    
91     end;
92    
93     // *************************************************************************
94     // 菴ソ逕ィ縺励※縺?k縺ゅ⊂繝シ繧楢ヲ丞援
95     // *************************************************************************
96     function AbonFile : PChar; stdcall;
97     begin
98    
99     Result := CreateResultString( GikoSys.FAbon.GetNGwordpath );
100    
101     end;
102    
103     exports
104     ApplicationFolder,
105     PreferencesFolder,
106     PreferencesFile,
107     LogFolder,
108     CSSFolder,
109     SkinFolder,
110     SkinFile,
111     AbonFolder,
112     AbonFile;
113    
114     end.
115    

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