前些日子下载了 Embarcadero RAD Studio XE, 装了之后, 发现它带了几个工具,如 FinalBuilder for Embarcadero , AutomatedQA for Embarcadero, 于是抽时间研究了一下 FinalBuilder,这是一个GUI的自动化工具,用来完成构建, 测试,发布等等。并且允许对这一过程进行调试。Embarcadero RAD Studio XE 带的是一个 Embarcadero 特别版,仅支持由 Embarcadero RAD Studio XE 开发的工程。 ...
实现原理:
1.检查是否是U盘
2.查检U盘的卷标
3.通过VolumeLable的返回值对比判断是否你加密的U盘(卷标要定义好)
function CheckUsbDisk(FLable:string):Boolean; //检验是否是USB优盘
var
Drive: Integer;
DriveLetter: Char;
begin
Result :=false;
for Dr...