91桃色视频,日韩免费黄色片,av免费大全

在Delphi中有許多控件支持拖放操作,但僅限于應用程序內(nèi)部,而不能實現(xiàn)從Windows環(huán)境里向應用程序拖放文件,本文將要介紹的就是如何用Delphi編寫支持文件拖放的應用程序,由于主要使用WindowsAPI函數(shù),因此也可供其它語言使用者參考.
　　首先要說明的是下面的三個API函數(shù),為通用起見, 函數(shù)說明使用C語言格式,
1.VOIDDragAcceptFiles(
HWNDhWnd,
BOOLfAccept);
　　DragAcceptFiles函數(shù)是用來為拖放文件作初始化, 它的第一個參數(shù)hWnd指明目標窗體的句柄,第二個參數(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ún)?shù)lpszFile所指向的緩沖區(qū)內(nèi),若此時lpszFile的值為NULL,則DragQueryFile會返回相應文件名的長度.參數(shù)cch決定緩沖區(qū)的長度,由于Windows95支持長文件名,它的值不能設得太小.
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.
　　從以上代碼可以看出,首先應該在窗體的OnCreate事件中用DragAccepteFiles來說明程序窗體支持文件的拖放.
　　另外,除了調(diào)用以上3個API函數(shù),在Delphi中還應編寫針對WM_DROPFILES的消息處理過程FinishDropped,截取了WM_DROPFILES,由其wParam 才能夠得到文件名緩沖區(qū)的句柄.
　　在FinishDropped過程里,有兩處DragQueryFile 函數(shù),第一處其iFile參數(shù)為$FFFFFFFF,得到拖放文件的總數(shù);第二處iFile參數(shù)為每個文件的序號,則可在lpszFile中可得到相應的文件名.當然,為了明顯的對比iFile的值對DragQueryFile 函數(shù)的影響,這里的代碼不夠簡練.有一點需要注意的是,lpszFile是Pchar型的變量,為了程序運行安全,它使用前需用getmem過程為其分配內(nèi)存,使用后再用dispose過程將其釋放. 在FinishDropped過程的最后,用DragFinish函數(shù)釋放文件名緩沖區(qū).
　　以上范例代碼在Delphi4中通過.

實現(xiàn)應用程序的文件拖放功能

相關軟件

相關文章

相關評論

閱讀本文后您有什么感想? 已有 0 人給出評價!

文章推薦

最新文章

本類常用軟件