用regedit /e filename备份注册表,其中的filename能动态的改变吗?(50分)

  • 主题发起人 主题发起人 zding
  • 开始时间 开始时间
Z

zding

Unregistered / Unconfirmed
GUEST, unregistred user!
在我的小程序中,想实现既能完整的保存注册表,又能选择其保存的路径。请问各位高手有
什么好办法没有。
 
当然可以啦:
uses ShellAPI, Dialogs;

begin
with TSaveDialog.Create(nil) do
begin
Filter := '*.reg|*.reg';
if Execute then
ShellExecute(0, nil, 'regedit.exe', PChar('/e "' + FileName + '"'), nil,
SW_HIDE); // 忘了个 PChar :)
Free;
end;
end;
 
I 服了 U
--------------------------------------

uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
var
FileName, PahtName, Para: string;
begin
PathName := 'c:/';
FileName := 'back.reg';
Para := ' /e '+PathName+FileName;
shellexecute(handle,'open','regedit.exe',pchar(Para),'',sw_hide)
end;
 
to zw84611:你没有给文件名加双引号,要是遇上里面含有空格就不行了喔:)

 
[:)],别误会,他这个问题我已经是第3次回答了。

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1495029
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1493600
 
后退
顶部