デルファイは、全体のファイルとディレクトリのディレクトリを削除します

オリジナルリンク： http://www.cnblogs.com/yzryc/p/deldir.html

//フォルダ全体を削除し、そのすべてのファイルが
DelDirAll（ADIR：文字列）：機能ブール;
VARの
vSearch：TSearchRec;
VRET：整数;
VKEY：文字列;
開始を

もしADIR [長さ（ADIR）] <> '\'次いで
ADIR：= ADIR + '\'。
VKEY：= ADIR + '*。*';
VRET：=関数は、FindFirst（VKEY、faanyfile、vSearch）。
VRET = 0を行う一方で
始まる
（（vSearch.Attrとfadirectory）= fadirectory）ならば、
始める
場合（vSearch.Name <> ' '）及び（vSearch.name <>' ..'）、その後
DelDirAll（ADIR + vSearch。名）;
エンド
他の
開始
（（vSearch.Attrとfadirectory）<> fadirectory）を次い場合
始める
{。} System.Sysutils DeleteFileを（ADIR + vSearch.name）。
終わり;
終わり;
VRET：= FindNextの（vSearch）。
終わり; //しばらく

System.SysUtils FindClose（vSearch）; {。}
RemoveDir（ADIR）; //あなたが追加したフォルダを削除する必要がある場合
の検索結果を：= Trueのを;
END;

 

///////////////////

 

VARの
P：整数;
P1、P2：PChar型;
IconIndex：ワード; //ファイルの位置のアイコン
ファイル名：TFileName ;
始める
IconIndex：= 0;
ファイル名：=「D：\ヤン\プロジェクト\ Loが福州日報を\ていますWin32の\デバッグ\データ配信やバックアップツール.exeを\データ配信やバックアップツール\エクストラネットパブリッシングツールを、1 ';
P1：= PChar型（ファイル名）;
P2：= StrRScan（P1、'、「）;から//文字文字左端の単一の文字列を検索
IF P2 <>その後、開始nilの
P：= P2 - P1 + 1; //コンマの位置
トライ
。IconIndex：= StrToInt（コピー（ファイル名、P + 1、長さ（ファイル名） - P ））;
ShowMessage（IntToStr（IconIndex））;
除く
ON E：EConvertError行う
始める
ShowMessage（e.Message）;
END;
END;
setLength（ファイル名、P - 1）。
終わり;
終わり;

ます。https：//www.cnblogs.com/yzryc/p/deldir.htmlで再現