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

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

在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;

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 欧美×videossexo另类暴力 | 三上悠亚精品一区二区久久 | 91久久综合九色综合欧美亚洲 | 日本欧美大码a在线视频播放 | 亚洲爽爽 | 日本大片成人免费网址 | 天天干天天干天天 | 四虎国产永久在线精品免费观看 | 二区国产| 正在播放黑丝 | 欧美日韩 在线播放 | 亚洲一在线 | 国产a精品| 久久线看观看精品香蕉国产 | 天干天夜啪天天碰 | 在线观看国产一区亚洲bd | 国产精品制服丝袜 | 欧美另类久久久精品 | 亚洲国产字幕 | 欧美一级毛片做受 | 色熟| 天天干天天操天天拍 | 91影院在线 | 久久精品这里是免费国产 | 欧美一级片播放 | 免费女人光着全身体网站 | 国产日韩欧美在线观看免费视频 | 在线精品视频播放 | 91网站网址最新 | 在线观看一区二区精品视频 | 人人插人人艹 | 福利视频一二区 | 日本色片网站 | 日本一级在线观看视频播放 | 91福利国产在线观一区二区 | 欧美精品亚洲精品日韩专 | 精品久久久久久免费影院 | 亚洲成a人片在线观看中 | 国产精品久久久久久亚洲小说 | 欧美激情一区二区三区中文字幕 | 欧美精品亚洲精品日韩一区 |