Цитата:
Сообщение от RusMaXXX
попробуй это:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
ATime: TSystemTime;
begin
with ATime do
begin
wYear := 1980;
wMonth := 7;
wDay := 12;
wHour := 17;
wMinute := 25;
wSecond := 0;
wMilliseconds := 0;
end;
SetLocalTime(ATime);
end;
|
этот код меняет все значения, а мне нужно чтобы менялся только год