書き込み機能の復旧 & ローカルルール取得の隠蔽

diff --git a/Editor.pas b/Editor.pas
index ec6603c..aa82baa 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -663,10 +663,10 @@ begin
 
                        ResultType := GetResultType(ResponseText);
 
-                        //MsgResult\8f\89\8aú\89»
-                        MsgResult := IDNO;
+                       //MsgResult\8f\89\8aú\89»
+                       MsgResult := IDNO;
                        //\83t\83V\83A\83i\83g\83\89\83b\83v\8cx\8d\90(LocalMode) by \92è\8aú\95Ö
-                        if Namae = '\8eR\8dè\8fÂ' then begin
+                       if ((Namae = '\8eR\8dè\8fÂ') or (Namae = 'fusianasan')) and (FirstWriting) then begin
                                MsgResult := MsgBox(
                                                Handle,
                                        '\83\8a\83\82\81[\83g\83z\83X\83g\82ð\95\\8e¦\82·\82é\8b@\94\\82ª\8eg\82í\82ê\82Ä\82¢\82Ü\82·' + #13#10 +
@@ -674,62 +674,50 @@ begin
                                        '\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
                                        '\8fî\95ñ',
                                        MB_YESNO or MB_ICONQUESTION);
-                               if MsgResult = IDYES then begin
-                                end
-                        end else
-                       if MsgResult = IDNO  then begin
-                               Exit;
-                               Close;
-                       end else
-                       if Namae = 'fusianasan' then begin
-                               MsgResult := MsgBox(
-                                               Handle,
-                                       '\83\8a\83\82\81[\83g\83z\83X\83g\82ð\95\\8e¦\82·\82é\8b@\94\\82ª\8eg\82í\82ê\82Ä\82¢\82Ü\82·' + #13#10 +
-                                       '\82à\82µ\82à\8aÔ\88á\82Á\82Ä\82±\82Ì\95û\96@\82Å\83z\83X\83g\82ª\95\\8e¦\82³\82ê\82½\82Æ\82µ\82Ä\82à\81A\8e©\8cÈ\90Ó\94C\82È\82Ì\82Å\8dí\8f\9c\88Ë\97\8a\82É\82Í\89\9e\82¶\82Ü\82¹\82ñ\81B' + #13#10#13#10 +
-                                       '\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
-                                       '\8fî\95ñ',
-                                       MB_YESNO or MB_ICONQUESTION);
-                               if MsgResult = IDYES then begin
-                                end
-                        end else
-                       if MsgResult = IDNO  then begin
-                               Exit;
-                               Close;
+                               if MsgResult = IDNO  then begin
+                                       Board.SPID := '';
+                                       Board.PON := '';
+                                       FWork := false;
+                                       EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
+                                       DrawMenuBar(Handle);
+                                       Exit;
+                               end;
                        end;
+                       {
                        //\83t\83V\83A\83i\83g\83\89\83b\83v\8cx\8d\90(SETTING.TXT Mode) by \92è\8aú\95Ö
-                       RefURL := GikoSys.UrlToServer(FBoard.URL) 
-                               + GikoSys.UrlToID(FBoard.URL) 
-                               + '/'; 
+                       RefURL := GikoSys.UrlToServer(FBoard.URL)
+                               + GikoSys.UrlToID(FBoard.URL)
+                               + '/';
                        //RefURL\82ð\8c³\82ÉSETTING.TXT\83A\83h\83\8c\83X\8ew\92è
-                       RefeURL := RefURL 
+                       RefeURL := RefURL
                                + 'SETTING.TXT';
 
-                        //\8e\8e\82µ\82É\83\8d\81[\83J\83\8b\83\8b\81[\83\8b\8eæ\93¾\82à
-                        RuleURL := RefURL
-                                + 'head.txt';
-                        //\8eæ\93¾\81`
+                                               //\8e\8e\82µ\82É\83\8d\81[\83J\83\8b\83\8b\81[\83\8b\8eæ\93¾\82à
+                                               RuleURL := RefURL
+                                                               + 'head.txt';
+                                               //\8eæ\93¾\81`
                        Settingtxt := Indy.Get(RefeURL);
-                        RuleTxt := Indy.Get(RuleURL);
-
-                        //SETTING.TXT In DebugOnly
-                        if Settingtxt = '' then begin
-                                ShowMessage('\8eæ\93¾\8e¸\94s');
-                                Exit;
-                        end else begin
-                                ShowMessage('\8eæ\93¾\90¬\8c÷' + #13#10 + Settingtxt);
-                                Exit;
-                        end;
-
-                        //RocalRule In Debug Only
-                        if RuleTxt = '' then begin
-                                ShowMessage('\8eæ\93¾\8e¸\94s');
-                                Exit;
-                        end else begin
-                                ShowMessage('\8eæ\93¾\90¬\8c÷' + #13#10 + RuleTxt);
-                        end;
-
+                                               RuleTxt := Indy.Get(RuleURL);
+
+                                               //SETTING.TXT In DebugOnly
+                                               if Settingtxt = '' then begin
+                                                               ShowMessage('\8eæ\93¾\8e¸\94s');
+                                                               Exit;
+                                               end else begin
+                                                               ShowMessage('\8eæ\93¾\90¬\8c÷' + #13#10 + Settingtxt);
+                                                               Exit;
+                                               end;
+
+                                               //RocalRule In Debug Only
+                                               if RuleTxt = '' then begin
+                                                               ShowMessage('\8eæ\93¾\8e¸\94s');
+                                                               Exit;
+                                               end else begin
+                                                               ShowMessage('\8eæ\93¾\90¬\8c÷' + #13#10 + RuleTxt);
+                                               end;
+                       }
                        if ResultType = grtOK then begin
-                WriteSambaTime(FHost, Now());
+                               WriteSambaTime(FHost, Now());
                                State := gdsComplete;
                        end else if ResultType = grtCookie then begin
                                //\83\8b\81[\83v\96h\8e~