Z zding Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-09 #1 在我的小程序中,想实现既能完整的保存注册表,又能选择其保存的路径。请问各位高手有 什么好办法没有。
B beta Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-09 #2 当然可以啦: 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;
当然可以啦: 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;
Z zw84611 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-09 #3 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;
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;
B beta Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-09 #4 to zw84611:你没有给文件名加双引号,要是遇上里面含有空格就不行了喔:)
Z zw84611 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-09 #5 [],别误会,他这个问题我已经是第3次回答了。 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1495029 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1493600
[],别误会,他这个问题我已经是第3次回答了。 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1495029 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1493600