delphi备份与恢复的问题？请大家帮我看下代码
备份代码如下procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Edit1.Text:=SaveDialog1.FileName;
end;
procedure TForm7.BitBtn1Click(Sender: TObject);
var
i:string;
failure:boolean;
begin
failure:=false;
i:=ExtractFilePath(Application.ExeName);
if not copyfile(pchar(i+'shijuan'),pchar(trim(edit1.Text)),false) then
failure:=true;
if failure then
ShowMessage('数据备份没有成功!')
else
showmessage('数据备份成功!');
end;
恢复代码如下
procedure TForm8.BitBtn1Click(Sender: TObject);
var
i:string;
failure:boolean;
begin
failure:=false;
i:=ExtractFilePath(Application.ExeName);
if fileexists(pchar(i+'shijuan')) then
begin
deletefile(pchar(i+'shijuan'));
if not copyfile(pchar(trim(edit1.Text)),pchar(i+'shijuan'),false) then
failure:=true;
end;
if failure then
ShowMessage('数据恢复没有成功!')
else
showmessage('数据恢复成功!');
edit1.Clear;
huanyuan.Form8.Close;
end;
procedure TForm8.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm8.SpeedButton1Click(Sender: TObject);
begin
if self.OpenDialog1.Execute then
相关问答：
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS（创建VPN连接用）函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
