如何屏蔽SHFileOperation()删除目录时的提示(100分)

jonyhuang · 2003-10-29

删除目录: procedure TftpForm.Button1Click(Sender: TObject); var   T:TSHfileOpStruct;//要引用ShellApI   P:String; begin   P:='d:/newespk/abc';//要写完整路径。   with T do   begin      Wnd := 0;      wFunc := FO_DELETE;      pFrom := pchar(p);      pTo := nil;      //fFlags := FOF_ALLOWUNDO;  //显示删除进度条   end;   SHFileOperation(T); end; 如何使他直接删除而不出现提示呢.谢谢

oldsheep35 · 2003-10-29

procedure TNetFile.DelFilesToRecycleBin(DialogBoxHandle: HWND;const FileName: String); Var   T:TSHFileOpStruct;   P:String; begin   P:=FileName;   FillChar(T, SizeOf(TSHFileOpStruct), 0);   With T do   Begin     Wnd:=DialogBoxHandle;     wFunc:=FO_DELETE;     pFrom:=Pchar(P);     fFlags:=FOF_ALLOWUNDO Or FOF_NOCONFIRMATION Or FOF_NOERRORUI  ;//关键在这里     fAnyOperationsAborted  :=false;   End;   SHFileOperation(T); End; 可以参考MSDN

app2001 · 2003-10-29

这里有一些参数，你试一下看？？ ShFileOperation只有一个参数是LPSHFILEOPSTRUCT型的相当于delphi中的TSHFileOpStruct; c语言定义为： typedef struct _SHFILEOPSTRUCT{     HWND         hwnd;     UINT         wFunc;     LPCSTR       pFrom;     LPCSTR       pTo;     FILEOP_FLAGS fFlags;     BOOL         fAnyOperationsAborted;     LPVOID       hNameMappings;     LPCSTR       lpszProgressTitle; } SHFILEOPSTRUCT, FAR *LPSHFILEOPSTRUCT; 相应的pascal就是: type     _SHFILEOPSTRUCTA = packed record     Wnd: HWND;     wFunc: UINT;     pFrom: PAnsiChar;     pTo: PAnsiChar;     fFlags: FILEOP_FLAGS;     fAnyOperationsAborted: BOOL;     hNameMappings: Pointer;     lpszProgressTitle: PAnsiChar; { only used if FOF_SIMPLEPROGRESS }   end; hwnd:用来显示操作状态的对话框句柄。例中是form1的句柄 wFunc:执行的操作。可以是以下各值：(例中是FO_COPY)         FO_COPY:拷贝pfrom域中指定的（目录，例中是'c:/a'）到pto中指定的位置（例中为'c:/b')         FO_DELET:删除pfrom中指定的文件.   (pTo不用)         FO_MOVE:移动PFrom中指定的文件到pto中指定的位置。           FO_RENAME:给PFrom中指定的文件改名。 pFrom:指定一个或多个源文件名的缓冲区地址。多个名字必须用NULL分隔。名字列表必须用两个NULL（nil,'/0')来结束。 pTo：目标文件或目录名缓冲区地址。如果fFlags域指定FOF_MULTIDESTFILES，缓冲区可以包含多个目标文件名。多个名字必须用NULL分隔。名字列表必须用两个NULL（nil,'/0') fFlags :控制操作的标志,可以是以下各值组合：         FOF_ALLOWUNDO:保留Undo信息，如果pFrom没有包含全的绝对的路径或文件名此值忽略。         FOF_CONFIRMMOUSE:没有实现.         FOF_FILESONLY:只有文件名使用通配符时（*.*)才对文件操作。         FOF_MULTIDESTFILES:  pTo域指一定了多个目标文件.(一个对就一个源文件) 而不是指定一个目录来存放所有源文件           FOF_NOCONFIRMATION:所有显示的对话框全部选择yes to all         FOF_NOCONFIRMMKDIR: 如果需要创建一个新目录不确认。         FOF_NOCOPYSECURITYATTRIBS:  4.71. Microsoft&reg; Windows NT&reg; only. 安全属性不复制.         FOF_NOERRORUI:发生错误时不提供用户接口。         FOF_RENAMEONCOLLISION:  move,copy,rename操作时如目标文件存在，给操作的文件另起一个名字。         FOF_SILENT:不显示进度对话框         FOF_SIMPLEPROGRESS:显示进度对话框但不显示文件名。         FOF_WANTMAPPINGHANDLE:如果指定了FOF_RENAMEONCOLLISION 当任何文件改名时将填写hNameMappings 域 fAnyOperationsAborted:当用户在完成前取消任何文件操作时赋值TRUE，否则FALSE. hNameMappings:一个包含SHNAMEMAPPING结构数组的文件名映射对象句柄. 每一个(SHNAMEMAPPING)结构包括一个旧的或新的目录名为了每一个移动的复制的改名的文件。这个域仅在fFlags域包括FOF_WANTMAPPINGHANDLES标志时使用。句柄必须使用SHFreeNameMappings来释放（用完后） lpszProgressTitle :进程对话框的标题串地址。仅在fFlags中包括FOF_SIMPLEPROGRESS标志时使用。 如果pFrom和pTo不是一个绝对目录时，当前目录从全局当前盘符和当前目录中取得，同时目录设置由GetCurrentDirectory

爱元元的哥哥 · 2003-10-29

FOF_NOCONFIRMATION

jonyhuang · 2003-10-29

接受答案了.

如何屏蔽SHFileOperation()删除目录时的提示(100分)

jonyhuang

Unregistered / Unconfirmed

oldsheep35

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

爱元元的哥哥

Unregistered / Unconfirmed

jonyhuang

Unregistered / Unconfirmed

Similar threads