给你个例子:记得给分
procedure TForm1.ComboBox1Change(Sender: TO b j e c t ) ;
var
sec1, byt1, cl1, cl2:longword;
begin
// 获取卷号信息
Edit1.Text:=IntToStr( GetDiskVolSerialID(ComboBox1.Items[ComboBox1.ItemIndex]));
// 获取容量信息
GetDiskFreeSpace(PChar(ComboBox1.Items[ComboBox1.ItemIndex]), sec1, byt1, cl1, cl2);
cl1 := cl1 * sec1 * byt1;
cl2 := cl2 * sec1 * byt1;
Edit2.Text:= FormatFloat('###,##0',cl2);
Edit3.Text:= FormatFloat('###,##0',cl1);
end;
procedure TForm1.ComboBox1Change(Sender: TO b j e c t ) ;
var
sec1, byt1, cl1, cl2:longword;
begin
// 获取卷号信息
Edit1.Text:=IntToStr( GetDiskVolSerialID(ComboBox1.Items[ComboBox1.ItemIndex]));
// 获取容量信息
GetDiskFreeSpace(PChar(ComboBox1.Items[ComboBox1.ItemIndex]), sec1, byt1, cl1, cl2);
cl1 := cl1 * sec1 * byt1;
cl2 := cl2 * sec1 * byt1;
Edit2.Text:= FormatFloat('###,##0',cl2);
Edit3.Text:= FormatFloat('###,##0',cl1);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货