delphi模拟windows文件复制粘贴
procedure CutOrCopyFiles(pFileList:Pchar;ListStrLen:integer;bCopy:Boolean);
type
PDropFiles=^TDropFiles;
TDropFiles=record
pFiles:DWORD;
pt:TPoint;
fNC:BOOL;
fWide:BOOL;
end;
const
DROPEFFECT_COPY = 1;
DROPEFFECT_MOVE = 2;
var
hGblFileList: HGLOBAL;
pFileListDate:Pbyte;
HandleDropEffect: UINT;
hGblDropEffect: HGLOBAL;
pdwDropEffect: PDWORD;
begin
hGblFileList:=GlobalAlloc(GMEM_ZEROINIT or GMEM_MOVEABLE or GMEM_SHARE, ListStrLen+Sizeof(TDropFiles)+1);//就是修改了此处+1
pFileListDate:=GlobalLock(hGblFileList);
PDropFiles(pFileListDate)^.pFiles:=Sizeof(TDropFiles);
PDropFiles(pFileListDate)^.pt.Y:=0;
PDropFiles(pFileListDate)^.pt.X:=0;
PDropFiles(pFileListDate)^.fNC:=False;
PDropFiles(pFileListDate)^.fWide:=False;
inc(pFileListDate,Sizeof(TDropFiles));
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载