با سلام وخسته نباشید مشکلم هنگ کردن کامبیوتر
من برای حذف یک یا چند پوشه بصورت زیر عمل می کنم
1- در قسمت uses کلمه ShellAPI اضافه کردم
2 - یک function با کد زیر نوشتم
function DelDir(dir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar(dir + #0);
end;
Result := (0 = ShFileOperation(fos));
end;


3- در button1 کد زیر نوشتم

DelDir('c:Data1'+Trim(edit1.Text)+'');
DelDir('c:Data1'+Trim(edit2.Text)+'');
DelDir('c:\Data1'+Trim(edit3.Text)+'');

ـ ولی متاسفانه فولدرها حذف می شود ولی کامبیوتر هنگ می کند
سؤال آیا روشی برای هنگ نکردن دارید
وایا روش دیگری یا کد دیگری برای حذف فولدرها دارید

سوال: حذف یک یا چند پوشه