基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 20 元　

支付宝支付

微信支付

   源码介绍

---

芯邦主控进行二次开发demo，可以量产隐藏区、私密区、光驱等

包括开发API文档

procedure TForm1.Button1Click(Sender: TObject);
var
  hh: THandle;
begin
  hrhide := OpenUsbDiskex('123456', edtHARD.TEXT[1], 'ABCD', '1234');
  ShowMessage(IntToStr(hrhide));
end;

procedure TForm1.btnGetHideHardClick(Sender: TObject);
begin
  ShowMessage(GetUDiskLetter(hr, StrToInt(Edit1.Text)));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsInHideZone(hrhide, 3), True));
end;