unit1.pas

精彩编程百例75～100 其中有媒体播放器 SQL语言编辑器 ADO方法连接多个数据库 用户密码验证系统 获取Man地址 信史服务 ping命令等待

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Button2: TButton;
    Label1: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var
  temp:string;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  host:string;
  size:integer;
  f:file of byte;
begin
memo1.Lines.Clear ;
if fileexists(temp) then
  deletefile(temp);


host:=edit1.text;
winexec(pchar('command.com /C net view \\'+host+' >'+temp),sw_hide);

while not fileexists(temp) do
  sleep(2000);
//为创建临时文件等待2秒种

try
 AssignFile(f,temp);
 Reset(f);
 size := FileSize(f);
finally
 closefile(f);
end;

if size=0 then
  begin
     showmessage(edit1.text+'未联网！');
     exit;
  end
  else
try
 memo1.lines.loadfromfile(temp);
except
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.lines.Clear;
temp:='c:\resource.txt';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if fileexists(temp) then
 deletefile(temp);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.