核心提示://使用方法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;
迅雷专用高速下载