Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/ExternalFilePath.pas

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


Revision 1.1 - (show 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 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