initCtrls

sLog: WideString; RMT 携帯
begin
tmrSplit.Enabled := cbIsAuto.Checked;
gsCurr_VPN_ENTRYNAME := DEF_VPN_ENTRYNAME;
RasList := TStringList.Create;

sLog := LOG_INFO_CREATEVPN + DEF_VPN_ENTRYNAME;
if FileExists(PATH_RASPHONE) then
begin
if not isHaveDefRasCon then
begin
try
if not createDefRasConn then
begin
showLog( LOG_ERROR_AUTOCREATEVPN + sLog);
end;
except
showLog(LOG_ERROR_AUTOCREATEVPN + sLog);
end;
end;
end
else
begin
showLog(LOG_NOTFOUNDFILE + sLog);
end;
tmrClose.Enabled := True;
end;