首先制作资源文件，新建一个TXT文件，内容如下：
data 资源名称
data1 资源类型
这里假设数据库备份文件名称为abc.dat，对资源文件格式不熟悉，请自行查阅资料。
然后，保存为Resource.rc文件
接着，使用brcc32.exe进行编译，在命令行输入brcc32.exe 文件路径
打开DELPHI，新建一个工程，将 Resource.rc 添加到工程中，如下图（本人使用DELPHI2007）
之后进行project-->compile all projects 进行编译
相应的工程目录下就会生成Resource.res 这个资源文件了。
使用资源文件
1 procedure TForm1.ButtonClick(Sender : TObject);
2 var
3 Res : TResourceStream;
4 begin
5 Res := TResourceStream.Create(HInstrance, 'data', 'data1');
6 Res.Position := 0;
7 Res.SaveToFile(ExtractFilePath(ParamStr(0)) + 'abc.dat');
8 Res.Free;
9 ADOQuery1.Close;
10 ADOQuery1.SQL.Text := 'RESTORE DATABASE ABC FROM DISK=''' + ExtractFilePath(ParamStr(0)) + 'abc.dat''';
11 try
12 ADOQuery1.ExecSQL;
13 ShowMessage('success');
14 except
15 On E:Exception do
16 begin
17 ShowMessage(E.Messages);
18 end;
19 end;
20
21 end;
2 var
3 Res : TResourceStream;
4 begin
5 Res := TResourceStream.Create(HInstrance, 'data', 'data1');
6 Res.Position := 0;
7 Res.SaveToFile(ExtractFilePath(ParamStr(0)) + 'abc.dat');
8 Res.Free;
9 ADOQuery1.Close;
10 ADOQuery1.SQL.Text := 'RESTORE DATABASE ABC FROM DISK=''' + ExtractFilePath(ParamStr(0)) + 'abc.dat''';
11 try
12 ADOQuery1.ExecSQL;
13 ShowMessage('success');
14 except
15 On E:Exception do
16 begin
17 ShowMessage(E.Messages);
18 end;
19 end;
20
21 end;
注意事项：
如果想修改rc文件，进行变动，在执行完brcc32.exe命令之后，必须把原有的res文件删除，然后在工程之中，使用 project-->compile all project 进行编译，res会重新生成
