【例子介绍】
芯邦主控进行二次开发demo,可以量产隐藏区、私密区、光驱等
【相关图片】
【源码结构】
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;
评论