實現(xiàn)應(yīng)用程序的文件拖放功能
在Delphi中有許多控件支持拖放操作,但僅限于 應(yīng)用程序內(nèi)部,而不能實現(xiàn)從Windows環(huán)境里向應(yīng)用程序拖放文件,本文將要介紹的就是如 何用Delphi編寫支持文件拖放的應(yīng)用程序,由于主要使用WindowsAPI函數(shù),因此也可供其 它語言使用者參考.
首先要說明的是下面的三個API函數(shù),為通用起見, 函數(shù)說明使用C語言格式,
1.VOIDDragAcceptFiles(
HWNDhWnd,
BOOLfAccept);
DragAcceptFiles函數(shù)是用來為拖放文件作初始化, 它的第一個參數(shù)hWnd指明目標(biāo)窗體的句柄,第二個參數(shù)fAccept是一個布爾型變量,為True時 則hWnd所指向的窗體可以接受拖放的文件.
2.UINTDragQueryFile(
HDROPhDrop,
UINTiFile,
LPTSTRlpszFile,
UINTcch)
DragQueryFile函數(shù)用來查詢拖放文件的文件名,其 本身的返回值是一個無符號整數(shù),參數(shù)hDrop是一個存放所拖放文件名稱的數(shù)據(jù)結(jié)構(gòu)的句柄, 也就是文件名緩沖區(qū)的句柄,需要從Windows消息WM_DROPFILES中獲得.iFile指明所要查詢 文件的序號,它有兩種取值方式,1.值為十六進制數(shù)FFFFFFFF時,DragQueryFile的返回值為 所拖放文件的數(shù)目;2.值在0到拖放文件總數(shù)之間時,DragQueryFile函數(shù)將相應(yīng)序號的文件 名放入?yún)?shù)lpszFile所指向的緩沖區(qū)內(nèi),若此時lpszFile的值為NULL,則DragQueryFile會返 回相應(yīng)文件名的長度.參數(shù)cch決定緩沖區(qū)的長度,由于Windows95支持長文件名,它的值不能 設(shè)得太小.
3.VOIDDragFinish(HDROPhDrop);
使用DragFinish函數(shù)告訴Windows拖放操作結(jié)束,使 其釋放文件名緩沖區(qū),它的參數(shù)hDrop與DragQueryFiles函數(shù)中的一樣,也由Windows消息WM_DROPFILES 的hDrop參數(shù)獲得.
下面將結(jié)合一個我編寫的例子來說明具體的編程 步驟.本例中窗體上放置了一個Memo控件memo1,在Windows中選取數(shù)個文件拖至程序窗體 放下,則memo1中便會顯示所選文件的總數(shù)及每個文件的各自名稱.程序代碼如下:
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Classes,
Graphics,Controls,Forms,Dialogs,
StdCtrls;
type
TForm1=class(TForm)
Memo1:TMemo;
procedureFormCreate(Sender:TObject);
procedureLabel3Click(Sender:TObject);
procedureLabel4Click(Sender:TObject);
private
PROCEDUREFinishDropped(VARMsg:TMessage);
MessageWM_DropFiles;
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
usesshellapi;
{$R*.DFM}
pro ureTForm1.FormCreate(Sender:TObject);
begin
//initializethedragprocess;
DragAcceptFiles(Handle,True);
end;
ProcedureTForm1.FinishDropped(VARMsg:TMessage);
Var
hDrop:THandle;
iFile:Uint;
lpszFile:pchar;
CountOfFiles:integer;
FileIndex:integer;
ReSults:string;
begin
hDrop:=Msg.WParam;
getmem(pchar,255);
iFile:=$FFFFFFFF;
CountOfFiles:=DragQueryFile(hDrop,iFile,lpszFile,254);
ReSults:=;
forFileIndex:=0CountOfFiles-1do
begin
iFile:=FileIndex;
DragQueryFile(hDrop,iFile,lpszFile,254);
//GettheFilenamesbyorder;
ReSults:=ReSults+#13#10+lpszFile;
end;
Dispose(lpszFile);
memo1.Clear;
memo1.lines.add(拖放了+IntToStr
(CountOfFiles)+個文件:+ReSults);
DragFinish(hDrop);
end;
end.
從以上代碼可以看出,首先應(yīng)該在窗體的OnCreate事 件中用DragAccepteFiles來說明程序窗體支持文件的拖放.
另外,除了調(diào)用以上3個API函數(shù),在Delphi中還應(yīng) 編寫針對WM_DROPFILES的消息處理過程FinishDropped,截取了WM_DROPFILES,由其wParam 才能夠得到文件名緩沖區(qū)的句柄.
在FinishDropped過程里,有兩處DragQueryFile 函數(shù),第一處其iFile參數(shù)為$FFFFFFFF,得到拖放文件的總數(shù);第二處iFile參數(shù)為每個文 件的序號,則可在lpszFile中可得到相應(yīng)的文件名.當(dāng)然,為了明顯的對比iFile的值對DragQueryFile 函數(shù)的影響,這里的代碼不夠簡練.有一點需要注意的是,lpszFile是Pchar型的變量,為了 程序運行安全,它使用前需用getmem過程為其分配內(nèi)存,使用后再用dispose過程將其釋放. 在FinishDropped過程的最后,用DragFinish函數(shù)釋放文件名緩沖區(qū).
以上范例代碼在Delphi4中通過.
