Mengganti System Time dan Tanggal Di Windows (Delphi)

Posted on Rabu, 15 Februari 2012 by

Dalam Windows Merubah SETTING Tanggal Jam pada System di Control Panel, coba kita buat dengan cara men SETTING dari Program Delphi Mungkin bisa berguna dalam Kombinasi Pembuatan program di Borland Delphi. dengan mengubah system berdasarkan format yang kita inginkan, contoh source code dibawah ini dengan mengubah settingan dari format AM PM menjadi Format 24 Jam Asumsinya ( 12 AM = 00.00) english to Indonesia. Program Delphi dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :


procedure TForm1.Button1Click(Sender: TObject);
var
  SystemTime: TSystemTime;
  NewTime, NewDate: string;
begin
  NewTime := '12:00:00';
  NewDate := '01.01.2012';
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
  SetLocalTime(SystemTime);
  // Tell windows, that the Time changed!
  PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); // *
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

One thought on “Mengganti System Time dan Tanggal Di Windows (Delphi)”

Silahkan Tulis Komentar Anda, Sopan dan Berwibawa