farzadkamali
جمعه 13 بهمن 1391, 11:45 صبح
سلام
چندین مورد کد دیدم که یک فایل رو در یک مسیر مشخصی حذف می کنن. ولی اگر فایل توی دسکتاپ باشه هیچ کدوم نمیتونن پاکش کنن.
من با تابع زیر کارکردم ولی نشد. یعنی وقتی فایلی روی صفحه دسکتاپ باشه نمی تونه اونو پاک کنه ولی در بقیه موارد چرا.
uses : shellapi
function DeleteFileWithUndo(sFileName: string): Boolean; var fos: TSHFileOpStruct; begin FillChar(fos, SizeOf(fos), 0); with fos do begin wFunc := FO_DELETE; pFrom := PChar(sFileName); fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT; end; Result := (0 = ShFileOperation(fos)); end;
دستور حذف:
DeleteFileWithUndo(آدرس فایل);
ممون میشم راهنماییم کنین
چندین مورد کد دیدم که یک فایل رو در یک مسیر مشخصی حذف می کنن. ولی اگر فایل توی دسکتاپ باشه هیچ کدوم نمیتونن پاکش کنن.
من با تابع زیر کارکردم ولی نشد. یعنی وقتی فایلی روی صفحه دسکتاپ باشه نمی تونه اونو پاک کنه ولی در بقیه موارد چرا.
uses : shellapi
function DeleteFileWithUndo(sFileName: string): Boolean; var fos: TSHFileOpStruct; begin FillChar(fos, SizeOf(fos), 0); with fos do begin wFunc := FO_DELETE; pFrom := PChar(sFileName); fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT; end; Result := (0 = ShFileOperation(fos)); end;
دستور حذف:
DeleteFileWithUndo(آدرس فایل);
ممون میشم راهنماییم کنین