紧急求救!
谁能给咱说一下,如何获取磁盘卷标号、网卡ID号、主板BIOS号?
另外问个基础问题,与或运算怎莫作?例如1234-5678-ABCD-EFGH和ZX两位两位与或运算?
各位老大快帮忙呀!不然假期泡汤了!
我这些东东是用来做软加密的,能否给提点建议?
谁能给咱说一下,如何获取磁盘卷标号、网卡ID号、主板BIOS号?
另外问个基础问题,与或运算怎莫作?例如1234-5678-ABCD-EFGH和ZX两位两位与或运算?
各位老大快帮忙呀!不然假期泡汤了!
我这些东东是用来做软加密的,能否给提点建议?
解决方案 »
- 如何让在主程序上始终显示一条线?
- 试卷生成的问题。。。。。
- 这段程序老有问题那位高人能告诉我是怎么回事?(100分)up有分
- 再次请教。如保做在第一列显示当前行号的tdbgrid控件。
- 想问一下大家平时开发时采取怎样的命名规范? 我学习学习,谢谢!
- 我用paradox数据库,设一表中字段N1为I型,在DBGRID中显示时,这一列的内容左对齐,如何才能使它右对齐呢?
- 如何把从数据表按一种特定的格式读取文本文件中
- 这难道不是问题吗? DBgrid 的问题???
- new过程----一个为指针变量分配内存的问题!
- 现在程序中有许多Edit,如何用少量的代码来实现所有的Edit的Text设为空!(也就是说不要在每个需要的地方使用Editx.text:='';
- 大家给看看一个报表的问题!
- 很急的问题(在线等)
uses
NetAPI;procedure getnetid;
var
NCB: TNCB;
LanaEnum: TLana_Enum;
Str: string;
Adapter: TAdpStat;
begin
ZeroMemory(@NCB, SizeOf(NCB));
NCB.Command:=NCB_ENUM;
NetBios(@NCB);
NCB.Buf:=@LanaEnum;
NCB.Length:=SizeOf(LanaEnum);
NCB.Command:=NCB_Enum;
NetBios(@NCB); for i:=0 to LanaEnum.length-1 do
begin
ZeroMemory(@NCB, SizeOf(NCB));
NCB.Command:=NCB_Reset;
NCB.Lana_Num:=LanaEnum.lana[i];
NetBios(@NCB); ZeroMemory(@NCB, SizeOf(NCB));
NCB.Command:=NCB_ADPSTAT;
NCB.Lana_Num:=LanaEnum.Lana[i];
FillChar(NCB.CallName, Sizeof(TNBName), $20);
NCB.CallName[0] := Byte('*');
NCB.Buf:=@Adapter;
NCB.Length:=SizeOf(Adapter);
NetBios(@NCB);
end
end;获取磁盘卷标号: GetVolumeInformation
最好是98和2000公用的方法!
顶出来了立马给分!!!