Delphi Internet时间更新本地电脑时间.docxVIP

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ComObj; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } function GetInternetTime(NetAddr:String):string; function MonthCovert(strMonth:string):integer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function TForm1.GetInternetTime(NetAddr:String):string; var XmlHttp: Variant; datetxt: string; begin XmlHttp := CreateOleObject(Microsoft.XM