日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

在Delphi中接受文件拖放

在Delphi中接受文件拖放

更新時間:2022-05-16 文章作者:未知 信息來源:網絡 閱讀次數:

很不爽的是,用Delphi封裝在Form里的那些東西是沒辦法接受用戶從我的電腦里拖放到你的Form上的文件的,但在做軟件的時候這又是很必要的,我昨天研究了一晚上終于解決了這個問題。
首先,給你的Project加一個Unit,代碼如下:
unit untDrag;

interface

//用來告訴Windows你的Form可以接受文件拖放
{$EXTERNALSYM DragAcceptFiles}procedure DragAcceptFiles(hWnd: Cardinal; fAccept: Boolean); stdcall;
//得到拖放文件名和文件個數的API
{$EXTERNALSYM DragQueryFile}
function DragQueryFile(hDrop: Cardinal; iFile: Cardinal; lpszFile: PChar; cch: Integer): Integer; stdcall;
//釋放Windows分配給拖放操作的內存
{$EXTERNALSYM DragFinish}
procedure DragFinish(hDrop: Cardinal); stdcall;
//得到拖放的文件個數
function GetDragFileCount(hDrop: Cardinal): Integer;
//得到拖放的文件名,通過FileIndex來指定文件編號,默認為第一個文件
function GetDragFileName(hDrop: Cardinal; FileIndex: Integer = 1): string;

implementation

procedure DragAcceptFiles; external 'Shell32';
function DragQueryFile; external 'Shell32';
procedure DragFinish; external 'Shell32';

function GetDragFileCount(hDrop: Cardinal): Integer;
const
  DragFileCount=High(Cardinal);
begin
  Result:= DragQueryFile(hDrop, DragFileCount, nil, 0);
end;

function GetDragFileName(hDrop: Cardinal; FileIndex: Integer = 1): string;
const
  Size=255;
var
  Len: Integer;
  FileName: string;
begin
  SetLength (FileName, Size);
  Len:= DragQueryFile(hDrop, FileIndex-1, PChar(FileName), Size);
  SetLength (FileName, Len);
  Result:= FileName;
end;

end.

然后,在你需要處理拖放的Form的OnCreate里面加上這么一句:
DragAcceptFiles (Handle, True);

在TForm1的public里面加上如下聲明:
procedure MyDrag (var Msg: TWMDropFiles); message WM_DropFiles;

下面是此過程的實現:
procedure TForm1.MyDrag (var Msg: TWMDropFiles);
var
  hDrop: Cardinal;
  ...
begin
  hDrop:= Msg.Drop;  //這個是拖放句柄
  ...(在這里可以用GetDragFileName和GetDragFileCount)
  //最后記得要用這兩句話:
  DragFinish (hDrop);
  Msg.Result:= 0;
end;

當然,要在Form的Unit上面加上
uses untDrag;

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 天天做天天摸天天爽天天爱 | 激情影院在线 | 中文字幕日韩精品亚洲七区 | 亚洲精品第一 | 欧美日韩高清观看一区二区 | 日本gogo亚洲高清大胆 | 久久88香港三级 | 亚洲国产亚洲片在线观看播放 | 亚洲国产日韩欧美在线 | 国产精品青青青高清在线 | vr专区精品中文字幕 | 色www永久免费网站国产 | 清纯制服被啪啪护士 | 性欧美xoxoxoxoxo | 日本免费的一级v一片 | 久热这里只精品99国产6_99 | 国产色图区 | 欧美 视频 | 青青操夜夜操 | 大桥未久一区二区 | 色婷婷久久综合中文久久蜜桃 | 日韩欧美一区二区三区在线视频 | 羞羞色院91 | 黄色a三级三级三级免费看 黄色va视频 | 久久精品国产只有精品6 | 国产精品视频一区二区三区w | 人人插人人插 | 国产精品第二页在线播放 | 成人aa在线观看视频 | chinese老太交视频在线观看 | 99在线热视频 | 久久久久久久国产 | 猛操美女| 天天操天天射天天爽 | 国产精品视频网址 | 91无限数破解版入口 | 91se在线| 5g影院天天5g天天 | 国产亚洲欧洲国产综合一区 | 99精品在免费线视频 | 欧美日韩看片 |