关于删除目录、删除文件以及保存文件的问题(30分)

[?]1.我想删除一个目录，此目录下含有若干目录和文件，用SHFileOperation来进行删除，
目录能够删除，但总报错，说'Acess violation at adress 7FCB8440 in module "shell32.dll"',
不知如何解决？
2.如何根据用户的需要将一运行结果保存到自己所希望的路径，而不是固定的路径？

以上两个问题望高手赐教！

2.selectdirectory 选择路径

你使用这个函数的吗？没问题呀，我是过了，要不你给delphi打补丁看看，至于
第二个问题就像楼上的兄弟说的那样就行了
procedure TForm1.Button1Click(Sender: TObject);

Var

T:TSHFileOpStruct;

P:String;

begin

P:='d:/address';//这里改成你要删除的任意目录名

With T do

Begin

Wnd:=0;

wFunc:=FO_DELETE;

pFrom:=Pchar(P);

pTo:=nil;

fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复，无须确认并不显示出错信息

hNameMappings:=nil;

lpszProgressTitle:='正在删除文件夹';

fAnyOperationsAborted:=False;

End;

SHFileOperation(T);

end;

多人接受答案了。