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.1 - (hide annotations) (download) (as text)
Sun Nov 16 10:50:27 2003 UTC (20 years, 5 months ago) by yoffy
Branch: MAIN
File MIME type: text/x-pascal
。ヲExternalBoardManager 、ャツ遉ュ、ッ、ハ、テ、ソ、ホ、ヌハャウ茖」

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     Result := CreateResultString( GikoSys.GetAppDir + 'Log\' );
50    
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