user shellapi
type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);///消息处理函数
end;procedure TForm1.FormCreate(Sender: TObject);
begin
//设置需要处理文件WM_DROPFILES拖放消息
DragAcceptFiles(ListView1.Handle, TRUE);
//设置AppMessage过程来捕获所有消息
Application.OnMessage := AppMessage;
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
nFiles, I: Integer;
Filename: string;
ListItem: TListItem;
begin
//
// 注意！所有消息都将通过这里！
// 不要在此过程中编写过多的或者需要长时间操作的代码，否则将影响程序的性能
//
// 判断是否是发送到ListView1的WM_DROPFILES消息
if (Msg.message = WM_DROPFILES) and (msg.hwnd = ListView1.Handle) then
begin
// 取dropped files的数量
nFiles := DragQueryFile (Msg.wParam, $FFFFFFFF, nil, 0);
// 循环取每个拖下文件的全文件名
for I := 0 to nFiles - 1 do////支持拖动多个文件过来
begin
// 为文件名分配缓冲 allocate memory
SetLength (Filename, 80);
// 取文件名 read the file name
DragQueryFile (Msg.wParam, I, PChar (Filename), 80);
Filename := PChar (Filename);
//file://将全文件名分解程文件名和路径
////FileName为拖过来的文件，包括文件全路径。
///此处实现对文件的操作
end;
//file://结束这次拖放操作
DragFinish (Msg.wParam);
//file://标识已处理了这条消息
Handled := True;
end;
end;

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
shellapi, StdCtrls;
type
TForm1 = class(TForm)Memo1: TMemo;procedure FormCreate(Sender: TObject);
private{ Private declarations }
publicprocedure WMDropFiles(var message:TMessage);message WM_DROPFILES;{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure tform1.WMDropFiles(var message:TMessage);
//响应拖动事件，讲文件的路径放置到Memo控件中
varp:array[0..254] of char;i:word;
begininherited;memo1.lines.clear;i:=dragqueryfile(message.wparam,$ffffffff,nil,0);caption :=inttostr(i);for i:=0 to i-1 dobegindragqueryfile(message.wparam,i,p,255);//取得文件路径
      memo1.lines.Add(strpas(p));end;
end;
procedure TForm1.FormCreate(Sender: TObject);
//设定拖动句柄
begindragacceptfiles(form1.handle,true);
end;
end.
==============
object Form1: TForm1
Left = 211
Top = 186
Width = 396
Height = 173
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemoLeft = 80Top = 32Width = 193Height = 73Lines.Strings = ('Memo1')TabOrder = 0
end
end

function IsTextFile(FileName:string):boolean;
var
Fs:TFileStream;
i,size:integer;
IsTextFile:boolean;
ByteData:Byte;
begin
if FileExists(FileName) then
begin
Fs:=TFileStream.Create(FileName,fmOpenRead);
IsTextFile:=true;
i:=0;
size:=Fs.Size;
While (i<size) and IsTextFile do
begin
Fs.Read(ByteData,1);
IsTextFile:=ByteData<>0;
inc(i)
end;
Fs.Free;
Result:=IsTextFile
end
else
Result:=false
end;

procedure TForm1.Act_CheckPath(FilePath:String);
var
MyFile:String;
i:Integer;
FileDir,TemStr:WideString;
PosList,DirList:TStrings;
begin
PosList:=TStringList.Create;
DirList:=TStringList.Create;
MyFile:=FilePath+'\';
FileDir:=MyFile;
//记录'\'的位置;
for i:=1 to Length(FileDir) do
begin
TemStr:=Copy(FileDir,i,1);
if TemStr = '\' then
PosList.Add(IntToStr(i));
end;
for i:=0 to PosList.Count - 1 do
begin
DirList.Add(Copy(FileDir,1,StrToInt(PosList.Strings[i])-1));
end;
for i:=0 to DirList.Count -1 do
begin
//判断文件路径是否存在
if not DirectoryExists(DirList.Strings[i]) then
//不存在，则建立新路径
CreateDir(DirList.Strings[i]);
end;
PosList.Free;
DirList.Free;
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
if not FileExists(Edit1.Text) then
//if not DirectoryExists(Edit1.Text) then 判断目录是否存在
try
begin
CreateDir(Edit1.Text);
//ForceDirectories(Edit1.Text); 创建目录
end;
finally
raise Exception.Create('Cannot Create '+Edit1.Text);
end;end;

FileExists(Path)检查目录是否存在function FileExists(const FileName: string): Boolean;DirectorysExists(Path)创建目录function DirectoryExists(const Directory: string): Boolean;CreateDirectory(Path)创建目录function ForceDirectories(Dir: string): Boolean;ForceDirectories(Path)创建目录CreateDirectory(Path)创建目录forcedirectories和CreateDirectory都能创建文件
ForceDirectories可以创建多层目录. 

usesShellApi;procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);varshellinfo: TSHFileOpStructA;beginwith shellinfo dobeginwnd := Application.Handle;wFunc := Flags;pFrom := PChar(fromFile);pTo := PChar(toFile);end;SHFileOperation(shellinfo);end;// Example, Beispiel:procedure TForm1.Button1Click(Sender: TObject);beginShellFileOperation('c:\afile.txt', 'd:\afile2.txt', FO_COPY);// To Move a file: FO_MOVEend;

function TScanFileThread.MoveFile(FileName: string): Boolean;var F: TShFileOpStruct;begin with F do begin Wnd := Handle;wFunc := FO_MOVE;pFrom := PChar(Directory + FileName + #0#0);pTo := PChar(SaveDirectory + FileName + #0#0);fFlags := FOF_RENAMEONCOLLISION or FOF_NOCONFIRMMKDIR;end;if ShFileOperation(F) = 0 then beginResult := True;endelsebeginResult := False;end;end;

CopyFile(PChar(源目录),PChar(目标目录),True);CopyFileTo('F:\MyProject\delphi\message\data\data.mdb','c:\data.mdb');//不能覆盖已存在的文件******//

procedure CopyFile (SourceName, TargetName: String);varStream1, Stream2: TFileStream;beginStream1 := TFileStream.Create (SourceName, fmOpenRead);tryStream2 := TFileStream.Create (TargetName, fmOpenWrite or fmCreate);tryStream2.CopyFrom (Stream1, Stream1.Size);finallyStream2.Free;endfinallyStream1.Free;endend;

procedure Tform1.formCreate(Sender: TObject);vars:Pchar;begins:= Pchar(Application.ExeName);copyfile(s, 'c:\a.exe', true);end;

FILE_FLAG_RANDOM_ACCESS
指定文件是随机访问,这个标志可以使系统优化文件的缓冲.FILE_FLAG_SEQUENTIAL_SCAN
指定文件将从头到尾连续地访问.这个标志可以提示系统优化文件缓冲. 如果程序在随机访问文件中移动文件指针,优化可能不会发生;然而,正确的操作仍然可以得到保证
指定这个标志可以提高程序以顺序访问模式读取大文件的性能, 性能的提高在许多程序读取一些大的顺序文件时是异常明显的.但是可能会有小范围的字节遗漏.FILE_FLAG_DELETE_ON_CLOSE
指示系统在文件所有打开的句柄关闭后立即删除文件.不只有你可以指定FILE_FLAG_DELETE_ON_CLOSE如果没有使用FILE_SHARE_DELETE,后续的打开文件的请求将会失败.FILE_FLAG_BACKUP_SEMANTICS
WINDOWS NT:指示系统为文件的打开或创建执行一个备份或恢复操作. 系统保证调用进程忽略文件的安全选项,倘若它必须有一个特权.则相关的特权则是SE_BACKUP_NAME和SE_RESTORE_NAME.
你也可以使用这个标志获得一个文件夹的句柄，一个文件夹句柄能够象一个文件句柄一样传给某些Win32函数。FILE_FLAG_POSIX_SEMANTICS
指明文件符合POSIX标准.这是在MS-DOS与16位Windows下的标准.
FILE_FLAG_OPEN_REPARSE_POINT
指定这个标志制约NTFS分区指针.该标志不能够和CREAT_ALWAYS一起使用.
FILE_FLAG_OPEN_NO_RECALL
指明需要文件数据,但是将继续从远程存储器中接收.它不会将数据存放在本地存储器中.
这个标志由远程存储系统或等级存储管理器系统使用.hTemplateFile
为GENERIC_READ访问的模式指定一个句柄到模板文件.模板文件在文件开始创建后提供文件属性和扩展属性.Return Values
返回值

function IsFileInUse(fName : string) : boolean;
var
HFileRes : HFILE;
begin
Result := false; //返回值为假(即文件不被使用)
if not FileExists(fName) then exit; //如果文件不存在则退出
HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,
0 {this is the trick!}, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result := (HFileRes = INVALID_HANDLE_VALUE); //如果CreateFile返回失败 那么Result为真(即文件正在被使用)
if not Result then //如果CreateFile函数返回是成功
CloseHandle(HFileRes); //那么关闭句柄
end;

function GetShellFolders(strDir: string): string;
constregPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
varReg: TRegistry;strFolders: string;
beginReg := TRegistry.Create;tryReg.RootKey := HKEY_CURRENT_USER;if Reg.OpenKey(regPath, false) then beginstrFolders := Reg.ReadString(strDir);end;finallyReg.Free;end;result := strFolders;
end;{获取桌面}function GetDeskeptPath: string;
beginResult := GetShellFolders('Desktop'); //是取得桌面文件夹的路径
end;{获取我的文档}function GetMyDoumentpath: string;
beginResult := GetShellFolders('Personal'); //我的文档
end;

usesShellApi//建立文件夹
procedure TfrmMain.cxButton1Click(Sender: TObject);
beginCreateDirectory(PChar(ExtractFilePath(ParamStr(0))+ 'Microblue'),nil);
end;//删除文件夹，放到回收站
procedure TfrmMain.cxButton2Click(Sender: TObject);
varT: TSHFileOpStruct;P: String;
beginP := ExtractFilePath(ParamStr(0)) + 'Microblue';with T dobeginWnd := 0;wFunc := FO_DELETE;pFrom := PChar(P);pTo := nil;fFlags := FOF_ALLOWUNDO + FOF_NOERRORUI;hNameMappings := nil;lpszProgressTitle := '正在删除文件夹';fAnyOperationsAborted := False;end;if SHFileOperation(T) = 0 thenbeginShowMessage('删除成功！');endelsebeginShowMessage('删除失败！');end;
end;//直接删除文件夹
procedure TfrmMain.cxButton3Click(Sender: TObject);
beginRemoveDirectory (Pchar(ExtractFilePath(ParamStr(0))+ 'Microblue'));
end;移动文件夹
用 SHFileOperation 这个吧，它能做的事情实在太多了，在MSDN查查这个函数，相信你收获一定不少，呵呵：use Shellapi; //记得 use Shellapifunction MoveDir(const aSrc, aDst: String): Boolean;
varsfo: TShFileOpStruct;i: Integer;
beginFillChar(sfo,SizeOf(TShFileOpStruct),0);sfo.fFlags:=FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or FOF_SILENT or FOF_ALLOWUNDO;sfo.Wnd:=0;sfo.wFunc:=FO_MOVE;sfo.pFrom:=PChar(aSrc);sfo.pTo:=PChar(aDst);Result:=not BOOL(SHFileOperation(sfo));
end;procedure TForm1.FormCreate(Sender: TObject);
beginSHOWMESSAGE(BoolToStr(MoveDir('C:\www','D:\abcd'),True));
end;

procedure TForm1.Button1Click(Sender: TObject);
varvStr: TStringList;i: Integer;
beginvStr := TStringList.Create;findall('E:\', 'test', vStr);for i := 0 to vStr.Count - 1 doShowMessage(vStr[i]);vStr.Free;
end;procedure TForm1.findall(disk, path: String; var fileresult: TStringList);
varfpath, s: String;fs: TsearchRec;
beginfpath := disk + path + '\*.*';if FindFirst(fpath, faAnyFile, fs) = 0 thenbeginif (fs.Name <> '.') and (fs.Name <> '..') thenif (fs.Attr and faDirectory) = faDirectory thenfindall(disk, path + '\' + fs.Name, fileresult)elsefileresult.add(strpas(strupper(pchar(path))) + '\' + strpas(strupper(pchar(fs.Name))) + '(' + inttostr(fs.Size) + ')');while findnext(fs) = 0 dobeginif (fs.Name <> '.') and (fs.Name <> '..') thenif (fs.Attr and faDirectory) = faDirectory thenfindall(disk, path + '\' + fs.Name, fileresult)elsebeginfileresult.add(path + '\' + strpas(strupper(pchar(fs.Name)))+ '(' + inttostr(fs.Size) + ')');end;end;end;Findclose(fs);
end;