接受外部拖動

最近在CSDN經常碰到有人問如何在DELPHI編程的時候，讓程序接受外部拖動而來的內容並處理。

就是處理wm_dropfiles消息以及使用DragAcceptFiles、dragqueryfile、dragfinish來操作，這些內容在DELPHI中被封裝在shellapi中，編程的時候，要uses這個單元。

在這裏用一個例子演示，以後再回答此問題的時候就不用再寫了。

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,shellapi;//要使用到shellapi中的內容

type

TForm1 = class(TForm)

Memo1: TMemo;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

private

//處理WM_DROPFILES消息

procedure dragdropfile(var msg : tmessage);message wm_dropfiles;

public

...{ Public declarations }

end;

var

Form1: TForm1;

implementation

...{$R *.dfm}

procedure TForm1.dragdropfile(var msg: tmessage);

var

char1:array[0..128] Of char;

char2 : pchar;

i,sum :integer;

begin

//獲得拖動的數量

sum := dragqueryfile(msg.wparam,$FFFFFFFF,nil,0);

//用一個label顯示此數量

label1.caption := inttostr(sum);

char2 := @char1;

for i := 0 to sum-1 do

begin

//將拖動文件的路徑存放到char2並通過一個memo來顯示

DragQueryFile(msg.wparam,i,char2,128);

memo1.lines.add(char2);

end;

dragfinish(msg.wparam);//結束

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

//讓程序接受外部拖動

DragAcceptFiles(Handle,true);

end;

end.

注：WINXP+D7，轉載請注明出處

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

 

最近在CSDN經常碰到有人問如何在DELPHI編程的時候，讓程序接受外部拖動而來的內容並處理。 就是處理wm_dropfiles消息以及使用DragAcceptFiles、dragqueryfile、dragfinish來操作，這些內容在DELPHI中被封裝在shellapi中，編程的時候，要uses這個單元。 在這裏用一個例子演示，以後再回答此問題的時候就不用再寫了。 [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]unit Unit1; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]interface [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]uses [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Dialogs, StdCtrls,shellapi;//要使用到shellapi中的內容 [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]type [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] TForm1 = class(TForm) [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Memo1: TMemo; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Label1: TLabel; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] procedure FormCreate(Sender: TObject); [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] private [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //處理WM_DROPFILES消息 [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] procedure dragdropfile(var msg : tmessage);message wm_dropfiles; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] public [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url] ...{ Public declarations } [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]var [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Form1: TForm1; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]implementation [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url]...{$R *.dfm} [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.dragdropfile(var msg: tmessage); [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]var [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] char1:array[0..128] Of char; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] char2 : pchar; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] i,sum :integer; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //獲得拖動的數量 [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] sum := dragqueryfile(msg.wparam,$FFFFFFFF,nil,0); [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //用一個label顯示此數量 [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] label1.caption := inttostr(sum); [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] char2 := @char1; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] for i := 0 to sum-1 do [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] begin [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //將拖動文件的路徑存放到char2並通過一個memo來顯示 [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] DragQueryFile(msg.wparam,i,char2,128); [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] memo1.lines.add(char2); [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] dragfinish(msg.wparam);//結束 [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.FormCreate(Sender: TObject); [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //讓程序接受外部拖動 [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] DragAcceptFiles(Handle,true); [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end. [url=/bbs/detail_501488.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] 注：WINXP+D7，轉載請注明出處