unit1.pas

来自「网络对时软件」· PAS 代码 · 共 62 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses shellapi;
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
s:string;
begin
//WinExec(pchar('net stop w32time'),SW_Hide);停止时间服务器

s:=pchar(edit1.text);
s:='net time \\'+s+' /set /y';
WinExec(pchar(s),SW_Hide);

//WinExec(pchar('net start w32time'),SW_Hide);启动时间服务器
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
left:=0;
top:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:='net time /setsntp:210.72.145.44';
WinExec(pchar(s),SW_Hide);

WinExec(pchar('net stop w32time'),SW_Hide);
WinExec(pchar('net start w32time'),SW_Hide);

end;

end.