这该怎么办？谢谢!我只有这点了全给上了!

Question

编VXD可解决问题
我编了一个，要的话去我主页留言
http://hotstore.yeah.net

Answer 1

找个递换函数把33，34，34,56,78,……换成bb="33'34'45'56'……"
dim xx[8]
dim a[4]
a[0]="23"
a[0]="45"
a[0]="89"
a[0]="55"
i=0
p=0
do while p<4   
 do while i<8
  xx[i]=split(b,i)
  if xx[i]=a[p] then 代码！
  i=i+1
 end do
p=p+1
end do

Answer 2

直接用 instr(b,a)
如b中的数字有可能为三位或以上，如b="231,346,236"，则可为：
instr(b,a+",")*instr(b,","+a)<>0

Answer 3

procedure TForm1.Button1Click(Sender: TObject); 
var 
  SerialNum : pdword; 
  a, b : dword; 
  Buffer  : array [0..255] of char; 
begin 
  if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), SerialNum, a, 
 b, nil, 0) then 
    Label1.Caption := IntToStr(SerialNum^); 
end;