حذف یک فولدر با تمامی زیر فولدرها و فایلهای داخلش

ساخت وبلاگ


procedure TForm1.DeleteDirectory(const DirName: string);
var
FileOp: TSHFileOpStruct;
begin
FillChar(FileOp, SizeOf(FileOp), 0);
FileOp.wFunc := FO_DELETE;
FileOp.pFrom := PChar(DirName+#0);//double zero-terminated
FileOp.fFlags := FOF_SILENT or FOF_NOERRORUI or FOF_NOCONFIRMATION;
SHFileOperation(FileOp);
end;

باید ShellAPI را به uses اضافه نمایید.

برطرف نمودن خطای A previous program installation created pending file operations...
ما را در سایت برطرف نمودن خطای A previous program installation created pending file operations دنبال می کنید

برچسب : نویسنده : bmypedia3 بازدید : 241 تاريخ : چهارشنبه 20 ارديبهشت 1396 ساعت: 10:36