CHECK_URL = 'http://gikonavi.sourceforge.jp/updater/latest.txt';
{$ENDIF}
var
- value : string;
+ value, url : string;
ResStream: TMemoryStream;
downResult, current, newest: TStringList;
newgiko: Boolean;
newgiko := false;
// night build\82Í\81A\83r\83\8b\83h\94Ô\8d\86\82¾\82¯\82Å\94»\92è\82·\82é
if (nightbuild) then begin
+ url := downResult.Values[ 'n_url' ];
newgiko := StrToInt(current[3]) < StrToInt(newest[3]);
end else begin
+ url := downResult.Values[ 'url' ];
newgiko := ( StrToInt(current[1]) < StrToInt(newest[1]) ) or
( (StrToInt(current[1]) = StrToInt(newest[1]))) and
((StrToInt(current[2]) < StrToInt(newest[2])) );
if (newgiko) then begin
if GikoUtil.MsgBox(Handle, '\90V\82µ\82¢\83M\83R\83i\83r\82ª\82 \82è\82Ü\82·\81B\83_\83E\83\93\83\8d\81[\83h\82µ\82Ü\82·\82©\81H', '\8dX\90V\8am\94F',
MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) = ID_YES then begin
-
- ResultMemo.Lines.Add('\90V\82µ\82¢\83M\83R\83i\83r\82ª\82 \82è\82Ü\82·\81B\83_\83E\83\93\83\8d\81[\83h\82ð\8aJ\8en\82µ\82Ü\82·\81B' + downResult.Values[ 'url' ]);
- DonwloadUpdate(Trim(downResult.Values[ 'url' ]));
+ ResultMemo.Lines.Add('\90V\82µ\82¢\83M\83R\83i\83r\82ª\82 \82è\82Ü\82·\81B\83_\83E\83\93\83\8d\81[\83h\82ð\8aJ\8en\82µ\82Ü\82·\81B' + url);
+ DonwloadUpdate(Trim(url));
Result := True;
end;
end else begin