// 윈도우즈 탐색기에서 파일 또는 디렉토리 몇개를 "복사" 표시한
// 상태에서 아래 프로그램을 실행하고 버튼을 클릭해 보세요
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, Clipbrd, ShellAPI;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
i, n: integer;
hDrop: THandle;
szFile: array[0..MAX_PATH-1] of Char;
begin
// Explorer상에서 복사한 경우 클립보드내에 CF_HDROP 포맷의 데이터가
// 들어가게 됩니다
if Clipboard.HasFormat(CF_HDROP) then
begin
// drop handle 을 얻는다
hDrop := Clipboard.GetAsHandle(CF_HDROP);
// 얼마나 많은 파일(디렉토리)들이 있는지 검사
n := DragQueryFile(hDrop, $FFFFFFFF, szFile, MAX_PATH);
Caption := Format('복사 갯수: %d', [n]);
for i := 0 to n - 1 do
begin
// 각 파일(디렉토리)명을 구한다
DragQueryFile(hDrop, i, szFile, MAX_PATH);
if FileExists(szFile) then
ListBox1.Items.Add('[파일] '+szFile)
else if DirectoryExists(szFile) then
ListBox1.Items.Add('[디렉토리] '+szFile)
else
ListBox1.Items.Add('[Unknown] '+szFile);
end;
end;
end;
end. |
|
