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.2.2.1 - (show annotations) (download) (as text)
Mon Apr 19 22:46:48 2004 UTC (20 years ago) by yoffy
Branch: stable
Changes since 1.2: +0 -0 lines
File MIME type: text/x-pascal
・ハ゛タ 47 相当にマージ。

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 // ???????倶?????臀?????????????????
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 // ????荐?????<?ゃ??/span>
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( IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) );
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 // 篏睡?????????? CSS / ?鴻????/span>
75 // *************************************************************************
76 function SkinFile : PChar; stdcall;
77 begin
78
79 Result := CreateResultString( GikoSys.Setting.CSSFileName );
80
81 end;
82
83 // *************************************************************************
84 // ???若?若??荀????臀????????????c????????/span>
85 // *************************************************************************
86 function AbonFolder : PChar; stdcall;
87 begin
88
89 Result := CreateResultString( GikoSys.Setting.GetNGWordsDir );
90
91 end;
92
93 // *************************************************************************
94 // 篏睡?????????????若?若??荀??
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