حذف فايل exe مخفي شده فقط خواندني

[Site Admin]

با سلام من ميخوام فايل exe يا هرفايلي كه مخفي يا سيستمي و يا فقط خواندني شده را حذف كنم

[Felony]

تو یک پوشه خاص یا کل درایو ؟
اگر تو یک پوشه خاص به صورت زیر میشه :

var
S: TSearchRec;
begin
if FindFirst('C:\*.*', faReadOnly or faSysFile or faHidden, S)= 0 then
repeat
DeleteFile('C:\' + S.Name);
until (FindNext(S)<> 0);
FindClose(S);
end;
اگر کل درایو یا یک پوشه با زیرپوشه هاش رو میخوای قبلا تو بخش نمونه کدها یک نمونه قرار داده بودم .

@ اگر از دلفی 2009 یا 2010 استفاده میکنی ، میتونی از توابع کتابخانه IOUtils استفاده کنی .

[Site Admin]

با عرض سلام من يك دستور جستو فايل را نميخوام شما فرض كنيد يك فايل به نام a.exe در روت درايو c داريد كه hidden و readonly شده من با دستور
deletefile('c:\a.exe'); تست كردم پاك نميشه

[Felony]

خوب برای اینکه ReadOnly هست ، اول از حالت ReadOnly خارجش کنید بعد :


FileSetAttr('C:\a.exe', -faReadOnly);
if DeleteFile('C:\a.exe') then
ShowMessage('Deleted !');

[Mask]

با اجازه:لبخند:
به خاطره اینه که مخفیه.
اول از این حالت درش بیار.