unit1.~pas

精彩编程百例51～75 其中有 cpu速度测试 检测声卡 查询内存信息 图像处理技巧 模拟放大镜效果等待

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  NetR :NETRESOURCE;
  ErrInfo : Longint;

begin
  //设置网络驱动器的状态
  NetR.dwScope := RESOURCE_GLOBALNET;
  NetR.dwType := RESOURCETYPE_DISK;//驱动器类型
  NetR.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;
  NetR.dwUsage := RESOURCEUSAGE_CONNECTABLE;
  NetR.lpLocalName := pchar(edit2.text);//本地虚拟驱动器名称
  NetR.lpRemoteName := pchar(edit1.text);//对应的远程文件夹
  ErrInfo := WNetAddConnection2(NetR, '', '', CONNECT_UPDATE_PROFILE);
  //错误信息
  If ErrInfo = NO_ERROR Then
    showmessage(edit1.text+'成功映射成'+edit2.text)
  Else
    showmessage('映射失败！');
end;


procedure TForm1.Button2Click(Sender: TObject);
//断开映射驱动器
var
  ErrInfo : Longint;
  strLocalName : pchar;
begin
  strLocalName:='j:';
  ErrInfo := WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, False);
  If ErrInfo = NO_ERROR Then
    showmessage(edit1.text+'映射断开！')
  Else
    showmessage('断开映射失败');
end;
end.