求教!!!!!!!!!!!! 1。getvolumninformation ,copyfile 这两个API函数如何使用?有没有详细解答?2.我的程序有备份及恢复数据库的功能,但我一直无法实现,请高手指点,最好有这方面的源代码.3。VCL是什么? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 2 备份:procedure TMainForm.btnBackupCreatClick(Sender: TObject);var filePath,fSQLStr:string;begin filepath:=''; backupdialog.Title:='备份到'; if backupdialog.Execute then filepath:=backupdialog.FileName+'.bak'; if length(filepath)<4 then exit; fSQLStr := 'BACKUP DATABASE ' + fDB_name + ' TO DISK = ' + '''' + filepath + ''''+'with init'; if Ado_BackUp.Active then Ado_BackUp.Close; Ado_BackUp.SQL.Clear; Ado_BackUp.SQL.Add(fSQLStr); Try Ado_BackUp.ExecSQL; Except MessageDlg('数据库备件失败.',mtwarning,[mbOk], 0); exit; end;//try MessageDlg('数据库备件成功.',mtinformation,[mbOk], 0);end;//fDB_name 数据库的名字 getvolumninformation获取与一个磁盘卷有关的信息"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long 参数 类型及说明 lpRootPathName String,欲获取信息的那个卷的根路径 lpVolumeNameBuffer String,用于装载卷名(卷标)的一个字串 nVolumeNameSize Long,lpVolumeNameBuffer字串的长度 lpVolumeSerialNumber Long,用于装载磁盘卷序列号的变量 lpMaximumComponentLength Long,指定一个变量,用于装载文件名每一部分的长度。例如,在“c:\component1\component2.ext”的情况下,它就代表component1或component2名称的长度 lpFileSystemFlags Long,用于装载一个或多个二进制位标志的变量。对这些标志位的解释如下: FS_CASE_IS_PRESERVED 文件名的大小写记录于文件系统 FS_CASE_SENSITIVE 文件名要区分大小写 FS_UNICODE_STORED_ON_DISK 文件名保存为Unicode格式 FS_PERSISTANT_ACLS 文件系统支持文件的访问控制列表(ACL)安全机制 FS_FILE_COMPRESSION 文件系统支持逐文件的进行文件压缩 FS_VOL_IS_COMPRESSED 整个磁盘卷都是压缩的 lpFileSystemNameBuffer String,指定一个缓冲区,用于装载文件系统的名称(如FAT,NTFS以及其他) nFileSystemNameSize Long,lpFileSystemNameBuffer字串的长度 copyfile复制文件CopyFileA (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long 参数 类型及说明 lpExistingFileName String,源文件名 lpNewFileName String,目标文件名 bFailIfExists Long,如果设为TRUE(非零),那么一旦目标文件已经存在,则函数调用会失败。否则目标文件被改写 vcl可视组件库visual component liabray 关于delphi的一些应用 存储过程的问题 delphi 实现图像拖放 高分求教!!!如何通过设置Alpha值实现窗体部分透明? 类似日历控件,可以实现窗体背景透明。 闲聊散分贴 Shell_NotifyIcon出来的系统托盘图标怎么能让他好看一点? Delphi中十六进制的数怎么表示? 怎样在activeskin中以一个大园中随意拖动一个小园? 如何在运行中删除动态创建的 POPUPMENU 的某个菜单项呢? "程序员等级考试"很难考吗??? ------白玉静 请问关于Tdatabase组件 access数据库的设计问题
procedure TMainForm.btnBackupCreatClick(Sender: TObject);
var
filePath,fSQLStr:string;
begin
filepath:='';
backupdialog.Title:='备份到';
if backupdialog.Execute then filepath:=backupdialog.FileName+'.bak';
if length(filepath)<4 then exit;
fSQLStr := 'BACKUP DATABASE ' + fDB_name +
' TO DISK = ' + '''' + filepath + ''''+'with init';
if Ado_BackUp.Active then Ado_BackUp.Close;
Ado_BackUp.SQL.Clear;
Ado_BackUp.SQL.Add(fSQLStr);
Try
Ado_BackUp.ExecSQL;
Except
MessageDlg('数据库备件失败.',mtwarning,[mbOk], 0);
exit;
end;//try
MessageDlg('数据库备件成功.',mtinformation,[mbOk], 0);
end;
//fDB_name 数据库的名字
获取与一个磁盘卷有关的信息
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
参数 类型及说明
lpRootPathName String,欲获取信息的那个卷的根路径
lpVolumeNameBuffer String,用于装载卷名(卷标)的一个字串
nVolumeNameSize Long,lpVolumeNameBuffer字串的长度
lpVolumeSerialNumber Long,用于装载磁盘卷序列号的变量
lpMaximumComponentLength Long,指定一个变量,用于装载文件名每一部分的长度。例如,在“c:\component1\component2.ext”的情况下,它就代表component1或component2名称的长度
lpFileSystemFlags Long,用于装载一个或多个二进制位标志的变量。对这些标志位的解释如下:
FS_CASE_IS_PRESERVED 文件名的大小写记录于文件系统
FS_CASE_SENSITIVE 文件名要区分大小写
FS_UNICODE_STORED_ON_DISK 文件名保存为Unicode格式
FS_PERSISTANT_ACLS 文件系统支持文件的访问控制列表(ACL)安全机制
FS_FILE_COMPRESSION 文件系统支持逐文件的进行文件压缩
FS_VOL_IS_COMPRESSED 整个磁盘卷都是压缩的
lpFileSystemNameBuffer String,指定一个缓冲区,用于装载文件系统的名称(如FAT,NTFS以及其他)
nFileSystemNameSize Long,lpFileSystemNameBuffer字串的长度 copyfile
复制文件
CopyFileA (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
参数 类型及说明
lpExistingFileName String,源文件名
lpNewFileName String,目标文件名
bFailIfExists Long,如果设为TRUE(非零),那么一旦目标文件已经存在,则函数调用会失败。否则目标文件被改写 vcl
可视组件库
visual component liabray