+ MsgResult := MsgBox( Handle,
+ '\81E\93\8a\8de\82³\82ê\82½\93à\97e\82Í\83R\83s\81[\81A\95Û\91¶\81A\88ø\97p\81A\93]\8dÚ\93\99\82³\82ê\82é\8fê\8d\87\82ª\82 \82è\82Ü\82·\81B' + #13#10 +
+ '\81E\93\8a\8de\82É\8aÖ\82µ\82Ä\94\90¶\82·\82é\90Ó\94C\82Í\91S\82Ä\93\8a\8de\8eÒ\82É\8bA\82µ\82Ü\82·\81B' + #13#10#13#10 +
+ '\91S\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
+ GetCookie(Indy.Response.RawHeaders.Text, Board);
+
+ if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then
+ raise Exception.Create('');
+
+ //\82à\82¤\88ê\89ñ\82±\82Ì\83\81\83\\83b\83h
+ Send(Board.Cookie, Board.SPID, Board.PON, False);
+ Exit;
+ end else begin
+ CancelSend( Board, SysMenu );
+ Exit;
+ end;
+ end else if ResultType = grtCheck then begin
+ //\83\8b\81[\83v\96h\8e~
+ if not FirstWriting then
+ raise Exception.Create('');
+
+ MsgResult := MsgBox( Handle,
+ '\8f\91\82«\8d\9e\82Ý\82É\8aÖ\82µ\82Ä\82Í\97l\81X\82È\83\8d\83O\8fî\95ñ\82ª\8bL\98^\82³\82ê\82Ä\82¢\82Ü\82·\81B' + #13#10 +
+ '\93\8a\8de\82É\8aÖ\82µ\82Ä\94\90¶\82·\82é\90Ó\94C\82Í\91S\82Ä\93\8a\8de\8eÒ\82É\8bA\82µ\82Ü\82·\81B' + #13#10 +
+ '\8cö\8f\98\97Ç\91\82É\94½\82µ\82½\82è\81A\91¼\90l\82É\96À\98f\82ð\82©\82¯\82é\8f\91\82«\8d\9e\82Ý\82Í\8dT\82¦\82Ä\89º\82³\82¢\81B' + #13#10 +
+ '\93\8a\8de\82³\82ê\82½\93à\97e\82Í\83R\83s\81[\81E\95Û\91¶\81E\88ø\97p\81E\93]\8dÚ\93\99\82³\82ê\82é\8fê\8d\87\82ª\82 \82è\82Ü\82·\81B' + #13#10 +
+ #13#10 +
+ '\91S\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
+ '\8am\94F',
+ MB_YESNO or MB_ICONQUESTION);
+
+ if MsgResult = IDYES then begin
+ GetCookie(Indy.Response.RawHeaders.Text, Board);
+
+ if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then
+ raise Exception.Create('');
+
+ Send(Board.Cookie, Board.SPID, Board.PON, False);
+ Exit;
+ end else begin
+ CancelSend( Board, SysMenu );
+ Exit;
+ end;
+ end else begin
+ if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then
+ WriteSambaTime(FHost, Now());
+
+ State := gdsError;
+ raise Exception.Create('');
+ end;