unit Unit1;
interface
uses Windows, Messages, SysUtils, wininet,Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);var Types : Integer;begin
Types := INTERNET_CONNECTION_MODEM + ......
阅读全文