像在资源管理器里的复制，不是VF的COPY FILE

[此贴子已经被作者于2017-1-16 16:27编辑过]

能否请tlliqi给出完整的API定义及其参数，image_bitmap的参数太难找了

先谢了

就想做一个类似WINDOWS资源管理器里的右键菜单中的复制和粘贴功能
现在没有一点完整的思路，帖不出代码

这个右键菜单是个空的，没有代码
[attach]88171[/attach]

我做了一个文件管理的小程序，想实现跟资源管理器里的文件复制和粘贴功能，不是VFP里GRID的复制和粘贴

[此贴子已经被作者于2017-1-16 16:25编辑过]

直接打开资源管理器我也想过，最初目的就是因为平时文件太多，要找到目录树太多的文件不容易，就做了一个快捷文件夹，用于收集常用的文件和文件夹，同时想让它具备复制和粘贴文件的功能

WIN7下的资源管理器没有XP的好用，我做的这个小程序，鼠标在左边的菜单上移动就显示对应文件夹下的文件和文件夹，如果鼠标在菜单条上停留2秒，右边的窗口就自动过滤出子文件夹，有了这个小程序，工作起来方便了很多

谢谢wcx_cc，你的思路我明白，但只能在VFP的环境下来完成，我希望的结果是在VFP的程序里实现资源管理器里菜单中复制和粘贴功能，并且能在资源管理器里实现粘贴。简单地说就是在VFP程序里复制文件，然后在资源管理器里的任意文件夹里可以粘贴。

[此贴子已经被作者于2017-1-17 09:49编辑过]

复制是可以实现了，但在资源管理器里就粘贴不了了，如果要在资源管理器里也能粘贴，再请指点如何做

在百度下可以找到一些VB的例子，下面是两个VB例子，请读得懂VB程序的高手把它们转为VFP
Declare Integer OpenFile In kernel32 String lpFileName,String @lpReOpenBuff,Integer wStyle
Declare Integer GetFileSize In kernel32 Integer hFile,String @lpFileSize
Declare Integer CloseHandle In kernel32 Integer hObject
DECLARE INTEGER OpenClipboard IN user32 INTEGER hwnd
DECLARE INTEGER CloseClipboard IN user32
DECLARE INTEGER SetClipboardData IN user32 INTEGER wFormat, INTEGER hMem


Dim Files(0) As String
Dim dataObject As New DataObject
Files(0) = "E:\音乐\好歌\白狐.mpg"
dataObject.SetData(DataFormats.FileDrop, False, Files)
Clipboard.SetDataObject(dataObject)

***********************************

imagefile="d:\aaa.bmp"
hbitmap=loadimage(0,imagefile,image_bitmap,0,0,lr_loadfromfile)   
openclipboard(0)
emptyclipboard()
setclipboarddata(cf_bitmap,hbitmap)
closeclipboard()


lcReOpenBuff=Space(254)
lnHFile=OpenFile("&imagefile",@lcReOpenBuff,0)
MESSAGEBOX(lnHFile)

[此贴子已经被作者于2017-1-18 23:57编辑过]