實現應用程序的文件拖放功能
在Delphi中有許多控件支持拖放操作,但僅限于 應用程序內部,而不能實現從Windows環境里向應用程序拖放文件,本文將要介紹的就是如 何用Delphi編寫支持文件拖放的應用程序,由于主要使用WindowsAPI函數,因此也可供其 它語言使用者參考.
首先要說明的是下面的三個API函數,為通用起見, 函數說明使用C語言格式,
1.VOIDDragAcceptFiles(
HWNDhWnd,
BOOLfAccept);
DragAcceptFiles函數是用來為拖放文件作初始化, 它的第一個參數hWnd指明目標窗體的句柄,第二個參數fAccept是一個布爾型變量,為True時 則hWnd所指向的窗體可以接受拖放的文件.
2.UINTDragQueryFile(
HDROPhDrop,
UINTiFile,
LPTSTRlpszFile,
UINTcch)
DragQueryFile函數用來查詢拖放文件的文件名,其 本身的返回值是一個無符號整數,參數hDrop是一個存放所拖放文件名稱的數據結構的句柄, 也就是文件名緩沖區的句柄,需要從Windows消息WM_DROPFILES中獲得.iFile指明所要查詢 文件的序號,它有兩種取值方式,1.值為十六進制數FFFFFFFF時,DragQueryFile的返回值為 所拖放文件的數目;2.值在0到拖放文件總數之間時,DragQueryFile函數將相應序號的文件 名放入參數lpszFile所指向的緩沖區內,若此時lpszFile的值為NULL,則DragQueryFile會返 回相應文件名的長度.參數cch決定緩沖區的長度,由于Windows95支持長文件名,它的值不能 設得太小.
3.VOIDDragFinish(HDROPhDrop);
使用DragFinish函數告訴Windows拖放操作結束,使 其釋放文件名緩沖區,它的參數hDrop與DragQueryFiles函數中的一樣,也由Windows消息WM_DROPFILES 的hDrop參數獲得.
下面將結合一個我編寫的例子來說明具體的編程 步驟.本例中窗體上放置了一個Memo控件memo1,在Windows中選取數個文件拖至程序窗體 放下,則memo1中便會顯示所選文件的總數及每個文件的各自名稱.程序代碼如下:
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.
從以上代碼可以看出,首先應該在窗體的OnCreate事 件中用DragAccepteFiles來說明程序窗體支持文件的拖放.
另外,除了調用以上3個API函數,在Delphi中還應 編寫針對WM_DROPFILES的消息處理過程FinishDropped,截取了WM_DROPFILES,由其wParam 才能夠得到文件名緩沖區的句柄.
在FinishDropped過程里,有兩處DragQueryFile 函數,第一處其iFile參數為$FFFFFFFF,得到拖放文件的總數;第二處iFile參數為每個文 件的序號,則可在lpszFile中可得到相應的文件名.當然,為了明顯的對比iFile的值對DragQueryFile 函數的影響,這里的代碼不夠簡練.有一點需要注意的是,lpszFile是Pchar型的變量,為了 程序運行安全,它使用前需用getmem過程為其分配內存,使用后再用dispose過程將其釋放. 在FinishDropped過程的最后,用DragFinish函數釋放文件名緩沖區.
以上范例代碼在Delphi4中通過.
