请注意://抗议   <-----  !!!!!
主  题:看来此论坛无能人也!无人会回答此问题!都是一群foolish man!!!同意zswang !

解决方案 »

  1.   

    function GetDiskSerialNum(DiskName:char):longint;
    var
      TmpA,TmpE:Pchar;
      TmpB,TmpC,TmpD,TmpF:DWord;
      SerialNum:PDWord;
    begin
    TmpA:='';
      TmpB:=0;
      TmpC:=0;
      TmpD:=FS_UNICODE_STORED_ON_DISK ;
      TmpE:='';
      TmpF:=0;
      GetVolumeInformation(Pchar(DiskName+':\'),TmpA,TmpB,@SerialNum,TmpC,TmpD,TmpE,TmpF);
      Result :=DWord( SerialNum );
      if DWord(SerialNum)=0 then
      Try
      ChDir(DiskName+':\');
          Result := 1;
      except
      end;
    end; 
      

  2.   

    再次声明:请注意://抗议  <-----  !!!!!
    主  题:看来此论坛无能人也!无人会回答此问题!都是一群foolish man!!!<--- 无言!同意zswang !