您现在的位置:首页 >> 硬件系统 >> 硬件系统 >> 内容

Delphi获取U盘序列号的实现方法

时间:2011/9/3 15:20:13 点击:

  核心提示://使用方法ProcedureTForm1.Button1Click(Sender:TObject);VarDrv,Pid:String;BeginDrv:=ExtractFileDrive(Para...
//使用方法
Procedure TForm1.Button1Click(Sender: TObject);
Var
  Drv, Pid: String;
Begin
  Drv := ExtractFileDrive(ParamStr(0));
  If GetDriveType(PChar(Drv + '\')) <> DRIVE_REMOVABLE Then
    Application.MessageBox('对不起,请把本程序放至到优盘上使用!', 'Error', MB_ICONHAND)
  Else
    If GetUSBDiskID(Drv, Pid) Then Memo1.Lines.Add(Pid);
End;



迅雷专用高速下载

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号