再砸200分,加上原来那个就有230分,希望大家帮帮我啊.

Question

我机子上有两个硬盘,7个分区,还有光驱,
我想知道怎么能读取所有的分区,并且区分出来那个分区是那个硬盘的,
硬盘有IDE和SCSI两种
在此谢过
另外一页在
http://community.csdn.net/Expert/topic/4440/4440738.xml?temp=.5724909

Answer 1

FAQ中就有答案,怎么不去找呢?http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=200765

Answer 2

to ly_liuyang(Liu Yang LYSoft http://lysoft.7u7.net) 
需要JEDI的Win32支持库才能编译！ 
是怎么回事阿,到那里找到这个应用库阿

Answer 3

也许我对这方面不是很熟悉，所以找了半天也没有找到我要得
特别是那个返回值类型TDiskExtent
我找了几天都没有搞定

Answer 4

没下载JEDI么?真是的连JEDI都不知道?找Google去的JwaWinIoctl.pas定义了的{$EXTERNALSYM PDISK_EXTENT}
  _DISK_EXTENT = record
    DiskNumber: DWORD;
    StartingOffset: LARGE_INTEGER;
    ExtentLength: LARGE_INTEGER;
  end;
  {$EXTERNALSYM _DISK_EXTENT}
  DISK_EXTENT = _DISK_EXTENT;
  {$EXTERNALSYM DISK_EXTENT}
  TDiskExtent = DISK_EXTENT;
  PDiskExtent = PDISK_EXTENT;{$EXTERNALSYM PDISK_EXTENT}
  _DISK_EXTENT = record
    DiskNumber: DWORD;
    StartingOffset: LARGE_INTEGER;
    ExtentLength: LARGE_INTEGER;
  end;
  {$EXTERNALSYM _DISK_EXTENT}
  DISK_EXTENT = _DISK_EXTENT;
  {$EXTERNALSYM DISK_EXTENT}
  TDiskExtent = DISK_EXTENT;
  PDiskExtent = PDISK_EXTENT;

Answer 5

to ly_liuyang(Liu Yang LYSoft http://lysoft.7u7.net) 
看你这么牛
我能不能再次问一个问题,
如何读取主板的序列号,
我下载的资料都不能读取我的主板序列号

Answer 6

function GetHashedBiosInfo: string;
  var
    SHA1Context: TSHA1Context;
    SHA1Digest: TSHA1Digest;
  begin
    // Get the BIOS data
    SetString(Result, PChar(Ptr($F0000)), $10000);
    // Hash the string
    SHA1Init(SHA1Context);
    SHA1Update(SHA1Context, PChar(Result), Length(Result));
    SHA1Final(SHA1Context, SHA1Digest);
    SetString(Result, PChar(@SHA1Digest), sizeof(SHA1Digest));
    // Return the hash string encoded in printable characters
    Result := B64Encode(Result);
  end;
function GetBiosInfoAsText: string;
  var
    p, q: pchar;
  begin
    q := nil;
    p := PChar(Ptr($FE000));
    repeat
      if q <> nil then begin
        if not (p^ in [#10, #13, #32..#126, #169, #184]) then begin
          if (p^ = #0) and (p - q >= 8) then begin
            Result := Result + TrimRight(String(q)) + #13#10;
          end;
          q := nil;
        end;
      end else
        if p^ in [#33..#126, #169, #184] then
          q := p;
      inc(p);
    until p > PChar(Ptr($FFFFF));
    Result := TrimRight(Result);
  end;

Answer 7

大哥,你要代码我是给不了的.给你个解决思路吧!
打开我的电脑,然后 右键->查看->详细资料,然后就会出现你要的类似结果了.
你可以想想或查查它的实现方法,应该就可以解决了.
希望对你有所帮助和启发.

Answer 8

ly_liuyang 很恶毒呀！
人家放30分不吱声，看到200分了出手了，哈哈！

Answer 9

到jedi.org下一個,不想引用就把函數搞出來!
//pazee(耙子)(今年过年不收礼，收礼只收尿不湿)   太有道理了!

Answer 10

如何读取主板的序列号?
这个问题一早没有意义的
现在的主板(包括4年前的)都没有SN存在的(或者是相同的)
就是说P3以来的主板,SN不是没有,就是类似1234567890或0000000000这类的而且不同的主板读取方法不一样,不要再花心思弄这个的
尤其是NB的主板,区别很大的>咋有人对偶那么大意见呀,汗~~

Answer 11

to ly_liuyang(Liu Yang LYSoft http://lysoft.7u7.net) 
pazee(耙子)(今年过年不收礼，收礼只收尿不湿) 说得有点道理,不过
我还是把大部分分给你,其他人都来点,你都快5星了,其他人还是三角了