| 3 |
interface |
interface |
| 4 |
|
|
| 5 |
uses |
uses |
| 6 |
SysUtils, Classes, Graphics, Forms, Math, IniFiles, UCryptAuto, UBase64, |
SysUtils, Classes, Graphics, Forms, {Math, IniFiles, UCryptAuto, UBase64,} |
| 7 |
ComCtrls, GestureModel; |
ComCtrls, GestureModel; |
| 8 |
|
|
| 9 |
const |
const |
| 517 |
function GetSpamFilterFileName : string; |
function GetSpamFilterFileName : string; |
| 518 |
function GetLanguageFileName: string; |
function GetLanguageFileName: string; |
| 519 |
procedure SetMessages; |
procedure SetMessages; |
| 520 |
function GetMessage(AType :Integer): string; |
function GetMessage(AType :Integer): string; |
| 521 |
|
function GetMainKeyFileName: String; |
| 522 |
|
function GetEditorKeyFileName: String; |
| 523 |
procedure WriteLogFolder(AVal : String); |
procedure WriteLogFolder(AVal : String); |
| 524 |
|
|
| 525 |
//受信バッファサイズ |
//受信バッファサイズ |
| 774 |
|
|
| 775 |
implementation |
implementation |
| 776 |
|
|
| 777 |
|
uses |
| 778 |
|
Math, IniFiles, UCryptAuto, UBase64; |
| 779 |
|
|
| 780 |
type |
type |
| 781 |
TSoundName = record |
TSoundName = record |
| 782 |
Name: string; |
Name: string; |
| 794 |
DEFAULT_TAB_FONT_NAME: string = 'MS Pゴシック'; |
DEFAULT_TAB_FONT_NAME: string = 'MS Pゴシック'; |
| 795 |
DEFAULT_TAB_FONT_SIZE: Integer = 9; |
DEFAULT_TAB_FONT_SIZE: Integer = 9; |
| 796 |
DEFAULT_2CH_BOARD_URL1: string = 'http://menu.2ch.net/bbsmenu.html'; |
DEFAULT_2CH_BOARD_URL1: string = 'http://menu.2ch.net/bbsmenu.html'; |
| 797 |
//OCNを削除しました |
//OCNを削除しました |
| 798 |
//DEFAULT_2CH_BOARD_URL2: string = 'http://menu.2ch.net/bbsmenu.html'; |
//DEFAULT_2CH_BOARD_URL2: string = 'http://menu.2ch.net/bbsmenu.html'; |
| 799 |
//2005/10/1にiij4uの方は消滅 //'http://www.2ch.net/newbbsmenu.html'; |
//2005/10/1にiij4uの方は消滅 //'http://www.2ch.net/newbbsmenu.html'; |
| 800 |
GIKO_ENCRYPT_TEXT: string = 'gikoNaviEncryptText'; |
GIKO_ENCRYPT_TEXT: string = 'gikoNaviEncryptText'; |
| 801 |
|
|
| 802 |
DEF_MESSAGES : array[0..13] of string = ( 'ログアウトしました', |
DEF_MESSAGES : array[0..13] of string = ( 'ログアウトしました', |
| 803 |
'ログインしました - ', |
'ログインしました - ', |
| 804 |
'強制ログインしました - ', |
'強制ログインしました - ', |
| 805 |
'[スレ一覧取得完了]', |
'[スレ一覧取得完了]', |
| 806 |
'(名称不明)', |
'(名称不明)', |
| 807 |
'[スレ取得完了]', |
'[スレ取得完了]', |
| 808 |
'[スレ差分取得完了]', |
'[スレ差分取得完了]', |
| 809 |
'[未更新]', |
'[未更新]', |
| 810 |
'[中断]', |
'[中断]', |
| 811 |
'[エラー]', |
'[エラー]', |
| 812 |
'[レス送信終了]', |
'[レス送信終了]', |
| 813 |
'[新スレ送信終了]', |
'[新スレ送信終了]', |
| 814 |
'[レス送信失敗]', |
'[レス送信失敗]', |
| 815 |
'[新スレ送信失敗]'); |
'[新スレ送信失敗]'); |
|
|
|
| 816 |
var |
var |
| 817 |
SOUND_NAME: array[0..4] of TSoundName = ( |
SOUND_NAME: array[0..4] of TSoundName = ( |
| 818 |
(Name: 'New'; ViewName: '取得成功'; FileName: ''), |
(Name: 'New'; ViewName: '取得成功'; FileName: ''), |
| 2234 |
FLogFolder := AVal; |
FLogFolder := AVal; |
| 2235 |
FLogFolderP := IncludeTrailingPathDelimiter(LogFolder); |
FLogFolderP := IncludeTrailingPathDelimiter(LogFolder); |
| 2236 |
end; |
end; |
| 2237 |
|
function TSetting.GetMainKeyFileName: String; |
| 2238 |
|
begin |
| 2239 |
|
Result := GetConfigDir + KEY_SETTING_FILE_NAME; |
| 2240 |
|
end; |
| 2241 |
|
function TSetting.GetEditorKeyFileName: String; |
| 2242 |
|
begin |
| 2243 |
|
Result := GetConfigDir + EKEY_SETTING_FILE_NAME; |
| 2244 |
|
end; |
| 2245 |
end. |
end. |
| 2246 |
|
|
| 2247 |
|
|