dos altindan saat ve tarih degistirmek

[gloryboy]

arkadaslar delphi ile yaptigim program icinde butona basinca edit1 deki saatin default saat olmasini istiyorum. ayni sey tarih icinde gecerli

komut satirinda time xx.xx.xx ve date xx.xx.xx diye degisebiliyor fakat programimdan komut satirina nasil komut yollayacaz

[rsimsek]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);

procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec, MSec: Word);
var
  NewDateTime: TSystemTime;
begin
  FillChar(NewDateTime, SizeOf(NewDateTime), #0);
  NewDateTime.wYear := Year;
  NewDateTime.wMonth := Month;
  NewDateTime.wDay := Day;
  NewDateTime.wHour := Hour;
  NewDateTime.wMinute := Minu;
  NewDateTime.wSecond := Sec;
  NewDateTime.wMilliseconds := MSec;
  SetLocalTime(NewDateTime);
end;

begin
 SetDateTime(2007, 1, 1, 16, 50, 00, 00);
end;