手伝って頂けますか。私はコードを持っていますが、Android では動作しません (疑う人もいるでしょう)。
procedure SetTime(sTime: string);
var
vsys: _SYSTEMTIME;
begin
GetLocalTime(vsys);
vsys.wYear := StrToInt(Copy(sTime,7,4));
vsys.wMonth := StrToInt(Copy(sTime,4,2));
vsys.wDay := StrToInt(Copy(sTime,1,2));
vsys.wHour := StrToInt(Copy(sTime,12,2));
vsys.wMinute := StrToInt(Copy(sTime,15,2));
vsys.wSecond := StrToInt(Copy(sTime,18,2));
SetLocalTime(vsys);
end;
同様のコードが必要ですが、Android または類推で動作させるには。前もって感謝します