摘要：
GetDiskFreeSpace(pchar(str),d1,d2,d3,d4);
lbxDisks.Items.Add(str+Format('-----------总空间: %f GB',[d4/1024/1024/1024*d2*d1])+Format('--------剩余空间: %f GB',[d3/1024/1024/1024*d2*d1]));
阅读全文
摘要：
ADODataSet1.Close ;
ADOStoredProc1.Close;
ADOStoredProc1.Parameters.ParamByName('@sqlstr').Value :='select * from History49'; //SQL
ADOStoredProc1.Parameters.ParamByName('@currentpage').Value := 2; //取得第2页
ADOStoredProc1.Parameters.ParamByName('@pagesize').Value := 20; //每页行数
ADOStoredProc1.ExecProc;
ADOStoredProc1.Open;
阅读全文
摘要：
if temp = 1 then
begin
driver := char(i + integer('A'));
str := driver + ':\';
if (driver '') and (getdrivetype(pchar(str)) drive_cdrom)
and (getdrivetype(pchar(str)) DRIVE_REMOVABLE) then
ComboBox1.Items.add(str);
end;
drivers := (drivers shr 1);
阅读全文