Arsip: Mengubah tanggal dan jam sistem


by LuriDarmawan in Sistem more 13 years ago 1894
Mengubah jam/tanggal sistem sebenarnya gampang kok, bisa dengan memanfaatkan prosedur SetSystemTime
procedure TForm1.Button1Click(Sender: TObject);
var
dt: TSystemTime;
begin
dt.wYear:=1999;
dt.wMonth:=2;
dt.wDay:=25;
dt.wHour:=9;
dt.wMinute:=0;
dt.wSecond:=0;
dt.wMilliseconds:=0;
if SetSystemTime(dt) then
Label1.Caption:='Setting finished';
end;
Syntax Highlighted with https://pascal-id.org/syntax


Tetap SEMANGAT!
ref: http://www.greatis.com
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com