社区
非技术区
帖子详情
一个关于SHFileOperation()函数的问题
成都清香白莲
2003-09-15 02:18:13
使用SHFileOperation()函数复制文件,怎样才能使最后那个确认文件夹替换窗口不出现(此文件夹已包含名为……),有没有什么参数可以设定。谢谢
...全文
30
5
打赏
收藏
一个关于SHFileOperation()函数的问题
使用SHFileOperation()函数复制文件,怎样才能使最后那个确认文件夹替换窗口不出现(此文件夹已包含名为……),有没有什么参数可以设定。谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
成都清香白莲
2003-09-15
打赏
举报
回复
不好意思,刚才机子出了点问题, 只需把fFlags参数的FOF_NOCONFIRMATION值加上就可以了,详细资料,可以看Windows SDK的帮助
hongqi162
2003-09-15
打赏
举报
回复
up,弄了半天!把答案贴出来吧!
dawnming
2003-09-15
打赏
举报
回复
我也想知道,up
成都清香白莲
2003-09-15
打赏
举报
回复
刚看了帮助,问题已经解决了
成都清香白莲
2003-09-15
打赏
举报
回复
哪位高手知道,请告诉我,多谢
调用
SH
File
Operation
函数
实现复制文件或删除到回收站(6KB)...
调用
SH
File
Operation
函数
实现复制文件或删除到回收站(6KB)
PB使用
SH
File
Operation
函数
复制文件夹(文件)API
在工作中遇到的
问题
,结合网上的各方资料现整理出此脚本! 此脚本在PB环境中已经测试通过,请放心使用,如有疑问请密我!
vb
SH
File
Operation
实现复制文件夹 示例源码
API功能详解: 使用API
函数
SH
File
Operation
,这个
函数
可以同时拷贝、删除、改名或移动多个文件,甚至整个目录。如果你愿意,还可以显示相应的动画对话框,功能十分强大。
SH
File
Operation
的参数是
一个
SH
FILE
OPSSTRUCT结构。这个结构中各成员的含义如下: - hwnd - 显示文件操作对话框的窗口句柄 - wFunc - 表示要进行的操作,可以取以下值: - FO_COPY - 拷贝文件。所要拷贝的文件由pFrom成员指定,目的地址有pTo成员指定。 - FO_DELETE - 删除pFrom指定的文件。(pTo 被忽略。) - FO_MOVE - 移动文件。所要移动的文件由pFrom成员指定,目的地址有pTo成员指定。 - FO_RENAME - 改名pFrom指定的文件。 - pFrom - 指定文件名的缓冲区的地址。必须以Chr(0)结尾。如果包括多个文件以Chr(0)分割。 - pTo - 指定目的文件名或目录的缓冲区的地址。必须以Chr(0)结尾。如果使用了FOF_MULTIDEST
FILE
S标志,可以包括多个文件名,文件名之间以Chr(0)分割。 - fFlags - 标志: - FOF_ALLOWUNDO - 允许恢复 - FOF_
FILE
SONLY - 如果使用了*.*,只操作文件。 - FOF_MULTIDEST
FILE
S - pTo成员可以为多个目的文件。 - FOF_NOCONFIRMATION - 不显示确认对话框。 - FOF_NOCONFIRMMKDIR - 不确认是否建立目录。 - FOF_NOERRORUI - 如果有错误,不显示用户界面。 - FOF_RENAMEONCOLLISION - 如果目的文件已经存在,给要处理的文件
一个
新名字。 - FOF_SILENT - 不显示进度对话框。 - FOF_SIMPLEPROGRESS - 显示进度框,但不显示文件名。 - fAny
Operation
sAborted -如果用户退出,该成员为TRUE,否则为FALSE。 - lpszProgressTitle - 进度框的标题,只有选择了FOF_SIMPLEPROGRESS标志才有效。
复制文件夹及里面的文件
复制文件夹及里面的文件。 使用
SH
File
Operation
函数
进行操作, 会弹出系统进度条,用户交互较友好。
VB拦截windows删除文件(API HOOK)
VB拦截Windows Explorer删除进程,内含API HOOK,源代码:倒霉蛋儿,程序有时候也会窗口勾挂失败! 勾住了
SH
File
Operation
等
函数
,DLL用Delphi写的C会的太少,查了半天才知道原来explorer是用
SH
File
Operation
删除文件,经过测试很稳定,没有出现崩溃的情况,由于只勾住了
SH
File
Operation
函数
,所以别的程序要是调用Delete
File
删除文件,拦截不到,要是想拦截Delete
File
自己接着写吧。 mod_Inject.bas类的注释摘录: Dim MyAddr As Long ‘执行远程线程代码的起始地址。这里等于LoadLibraryA的地址 ‘dll文件路径 MyDll
File
Length = LenB(StrConv(MyDll
File
Name, vbFromUnicode)) + 1 ‘这里把dll文件名从Unicode转换成Ansi,否则英文字母是2个字节。 _ 顺便说一下,学过C的应该知道字符串要以/0标志结尾,所以dll文件名长度要加上1个字节存放Chr(0) ‘得到进程的句柄 在目标进程中申请分配一块空白内存区域。内存的起始地址保存在MyDll
File
Buffer中。 _ 这块内存区域我们用来存放dll文件路径,并作为参数传递给LoadLibraryA。 在分配出来的内存区域中写入dll路径径。注意第二个参数传递的是MyDll
File
Buffer的内容, _ 而不是MyDll
File
Buffer的内存地址? If MyReturn = 0 Then Inject = False MyAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA") ‘得到LoadLibraryA
函数
的起始地址。他的参数就是我们刚才写入的dll路径。但是LoadLibraryA本身是不知道参数在哪里的。 _ 接下来我们就用CreateRemoteThread
函数
告诉他参数放在哪里了? If MyAddr = 0 Then Inject = False MyResult = CreateRemoteThread(Proces
sH
andle, 0, 0, MyAddr, MyDll
File
Buffer, 0, 0) 好了,现在用CreateRemoteThread在目标进程创建
一个
线程,线程起始地址指向LoadLibraryA, _ 参数就是MyDll
File
Buffer中保存的dll路径? If MyResult = 0 Then Inject = False Else Inject = True End If ‘接下来你可以使用WaitForSingleObject等待线程执行完毕。 _ 并用GetExitCodeThread得到线程的退出代码,用来判断时候正确执行了dll中的代码。 CloseHandle MyResult CloseHandle Proces
sH
andle ‘扫地工作 End Function
非技术区
828
社区成员
53,611
社区内容
发帖
与我相关
我的任务
非技术区
Delphi 非技术区
复制链接
扫一扫
分享
社区描述
Delphi 非技术区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章