Windows - abrir relogio do windows

Top  Previous  Next

uses 

  Shellapi; 

 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

  ShellExecute(Handle, 'open''control''date/time', nil, SW_SHOW); 

end