delphi模拟文件拖拽


本文整理自网络,侵删。

 {function ExecDropFile( // delphi模拟文件拖拽
AHandle: THandle; // 目标窗体句柄
AFileName: string // 文件名):
Boolean; // 返回执行是否成功 }
function ExecDropFile(AHandle: THandle;AFileName: string):Boolean;
// 返回执行是否成功
var
vDropFiles: TDropFiles;
vProcessId: DWORD;
vProcess: THandle;
vPointer: PChar;
vNumberOfBytesRead: Cardinal;
begin
Result := False;
if not FileExists(AFileName) or not IsWindow(AHandle) then Exit;
GetWindowThreadProcessId(AHandle, @vProcessId);
vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, vProcessId);
try
vPointer := VirtualAllocEx(vProcess, nil, 4096, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
try
FillChar(vDropFiles, SizeOf(vDropFiles), 0);
vDropFiles.pFiles := SizeOf(TDropFiles);
WriteProcessMemory(vProcess, vPointer, @vDropFiles, SizeOf(vDropFiles), vNumberOfBytesRead);
WriteProcessMemory(vProcess, vPointer + SizeOf(vDropFiles), PChar(AFileName), Length(AFileName) + 1, vNumberOfBytesRead);
SendMessage(AHandle, WM_DROPFILES, Integer(vPointer), 0);
finally
VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE);
end;
finally
CloseHandle(vProcess);
end;
Result := True;
end;

相关阅读 >>

Delphi开机启动项管理源码

Delphi selectdirectory 选择文件夹

Delphi 从一个html返回所有的图片链接

Delphi取cpu利用率

Delphi 运行时提升软件到管理员权限

Delphi 获取android包名称

Delphi文件操作所涉及的一些函数

Delphi 复制拷贝文件目录函数

Delphi fmx自定义对话框样式,多屏幕布局

Delphi 类的声明

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...