Results 1 to 20 of 20
Hybrid View
-
20th December 2010 00:08 #1
Delphi: Èçòðèâàíå íà ôàéëîâå áåç óñïåõ
Êîïèðàë ñúì íÿêîëêî ïàïêè îò Windows 7 íà íåñèñòåìåí äÿë.
Ñåãà íå ìè òðÿáâàò, à íå ìîãà äà ãè èçòðèÿ.
Íàïèñàõ åäíà ïðîãðàìêà íà Delphi, êîÿòî äà èçòðèâà ñúäúðæàíèåòî íà ïàïêà âêëþ÷èòåëíî ïîäïàïêèòå è ôàéëîâåòå è.
Àêî ïîäàì äðóãà ïàïêà ðàáîòè, êàòî ïðîâåðÿâà ôàéëîâåòå äàëè ñà Hidden, SysFiles èëè Read-only è ñúîòâåòíî ïðåìàõâà òåçè ñâîéñòâà, ïðåäè äà ãè èçòðèå;
Îáà÷å íå èçòðèâà êîïèðàíèòå îò ìåí ïàïêè:
W:\Documents and Settings
W:\Program Files
W:\Program Files (x86)
W:\ProgramData
W:\Windows
Èìà ëè íÿêàêúâ íà÷èí, äà ãè èçòðèÿ, ÷å çàåìàò äîñòà äèñêîâî ìÿñòî.
Áëàãîäàðÿ !
-
20th December 2010 00:20 #2
Ïðîáâàé ñ Windows Unlocker.
Çàá.: finalista, òåìàòà íå å çà òîçè ðàçäåë (çà "Îáù ñîôòóåðåí ôîðóì" e), îñâåí àêî íå ïèòàø çà êîä, êîéòî äà ïðàâè òîâà, êîåòî ïèòàø, êîåòî íå ñè ëè÷è îò ìíåíèåòî òè.
-
20th December 2010 00:22 #3
Ïèòàì çà êîä íà Delphi.
-
20th December 2010 00:28 #4
Ïðîáâàé ñ
äà âèäèø êàêâî òè èçêàðâà.Code:ShowMessage('TestDir remove failed with error : '+ IntToStr(GetLastError));
Âèæ òóê, çà ïîäðîáíîñòè.
-
20th December 2010 00:40 #5
Ùå èçïðîáâàì :
Âñúùíîñò òîçè ïðèìåð å ìíîãî ëåñåí.Code:ShowMessage('TestDir remove failed with error : '+ IntToStr(GetLastError));
Ñúçäàâàíå íà íîâà ïàïêà ( åñòåñòâåíî ïðàçíà ).
Èçòðèâàíå íà ïðàçíàòà ïàïêà.
Ìîÿò ñëó÷àé å ïî-ñëîæåí, çàùîòî ïîäàâàì êàòî ïàðàìåòúð ïðèìåðíî 'W:\ProgramData', à ïðîöåäóðàòà òðÿáâà äà íàìåðè âñè÷êè ôàéëîâå âúòðå âêëþ÷èòåëíî â ïîä-ïàïêèòå è äà ãè èçòðèå. ×àê íàêðàÿ äà èçòðèå èçïðàçíåíèòå ïàïêè îòâúòðå íàâúí.
-
20th December 2010 00:41 #6
Íàðúêà èçòðèâàò ëè ñå? Ïðàâà íàä òÿõ èìàø ëè?
Íî äàé äà âèäèì êàêâî òè âðúùà GetLastError();
Ñ ôàéëîâåòå âúòðå ëè ñå îïèòâàø äà ãè òðèåø? Àêî å òàêà, òè òðÿáâà òàçè ôóíêöèÿ SHFileOperationEVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|Êèëî è ïîëîâèíà âîäà
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|Áåç èñòèíñêî âîäíî
-
20th December 2010 00:44 #7
Îïèòâàì äà èçòðèÿ ôàéëîâåòå âúòðå.
Íà ðúêà íå ñå èçòðèâàò ( îñâåí â äðóãè ïàïêè, êîèòî íå ñà íà Windows )
Äàíî äà íå ìè ñå ñìååòå íà êîäà:
Code:procedure TForm1.Remove_Files_SubDirs(Path: string); var Found: Integer; Attr: Integer; SearchRec: TSearchRec; FileName: string; procedure Prepare_For_Remove(Name: string); begin if ((FileGetAttr(Name) and faReadOnly) > 0) then FileSetAttr(Name, FileGetAttr(Name) xor faReadOnly); if ((FileGetAttr(Name) and faHidden) > 0) then FileSetAttr(Name, FileGetAttr(Name) xor faHidden); if ((FileGetAttr(Name) and faSysFile) > 0) then FileSetAttr(Name, FileGetAttr(Name) xor faSysFile); end; begin Attr := faAnyFile; Found := FindFirst(Path + '\*.*', Attr, SearchRec); while (Found=0) do try if ((IntToHex(SearchRec.Attr, 8)='00000810') or (IntToHex(SearchRec.Attr, 8)='00000010')) and (not (SearchRec.Name[1]='.')) then begin FileName := Path + '\' + SearchRec.Name; Prepare_For_Remove(FileName); RemoveDir(FileName); Remove_Files_SubDirs(FileName); end; //............................. if (SearchRec.Attr=faDirectory) then if (FileName<>'') then Memo_SubDirs.Lines.Add(FileName); if (not ((SearchRec.Attr=faDirectory) or (SearchRec.Attr=17)) and not (SearchRec.Name='.') and not (SearchRec.Name='..')) then begin FileName := Path + '\' + SearchRec.Name; Prepare_For_Remove(FileName); DeleteFile(FileName); Remove_Files_SubDirs(Path); end; //............................. Found := FindNext(SearchRec); // find next file in directory if it exists except B := False; end; { if B then begin RemoveDir(FileName); RemoveDir(Path); end; } FindClose(SearchRec); end;
-
20th December 2010 00:49 #8Íå ðàçáðàõ. Íà ðàáîòåù Óèíäîóñ èñêàø äà ìó èçòðèåø ôàéëîâåòå, òåçè êîèòî ïîëçâà â ìîìåíòà?îñâåí â äðóãè ïàïêè, êîèòî íå ñà íà WindowsEVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|Êèëî è ïîëîâèíà âîäà
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|Áåç èñòèíñêî âîäíî
-
20th December 2010 00:51 #9
-
20th December 2010 00:58 #10
Èñêàø äà ãè èçòðèåø ïðîñòî èëè èñêàø äà ñå óïðàæíÿâàø äà ãè èçòðèåø ñ òâîé êîä? Ìîæå è äà íå ñòàíå. Íå ñúì óáåäåí, ÷å ñëåä êàòî ñè ãè êîïèðàë/ïðåìåñòèë, Óèíäîóñà íå ãè èçïîçëâà â ìîìåíòà. Àêî å òàêà íÿìà äà ìîæåø äà ãè èçòðèåø, äîêàòî òîé ðàáîòè.
Àêî ïðîñòî ñè ãè êîïèðàë, ñïðè Óèíäîóñà, ðàçêà÷è òîçè âòîðèÿ äèñê, ïóñíè ÏåÖå-òî áåç íåãî, ïîñëå ïàê ãî çàêà÷è. Òàêà òðÿáâà äà ñå èçòðèÿò.
Äàé äà âèäèì êàêâî òè äàâà GetLastError ñëåä êàòî èçâèêàø DeleteFile. Íàé-âåðîÿòíî 5.EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|Êèëî è ïîëîâèíà âîäà
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|Áåç èñòèíñêî âîäíî
-
20th December 2010 01:02 #11
Äàâà ãðåøêà:
DeleteFile failed with error : 5
-
20th December 2010 01:03 #12
ERROR_ACCESS_DENIED. Èëè ñå ïîëçâàò, èëè íÿìàø ïðàâà äà ãè òðèåø. Íî ùîì êàçâàø, ÷å òè ñè ãè êîïèðàë, çíà÷è èìàø ïðàâà. Îñòàâà äà ñå èçïîëçâàò. Êàêâè ôàéëîâå èìà â ïàïêèòå? W ëîêàëåí äèñê ëè å?
Ïîíåæå òîâà ñà èìåíà íà ñëóæåáíè ïàïêè, ìîæå äà ðàçáåðåø äàëè Óèíäîóñà ïîëçâà òÿõ çà òàêèâà, âìåñòî òåçè ÎÒ êîèòî ñè êîïèðàë, ñ SHGetSpecialFolderLocations.EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|Êèëî è ïîëîâèíà âîäà
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|Áåç èñòèíñêî âîäíî
-
20th December 2010 01:09 #13
 ïàïêèòå èìà òàêèâà ôàéëîâå, êàêâèòî å èìàëî â
C:\Windows
C:\Program Files
......
C:\ProgramData
ïðåäè íÿêîëêî ìåñåöà
Íå ìè òðÿáâàò, íî íå ìîãà äà ãè èçòðèÿ äîðè ñ Unlocker ( èçëúãàõ - óñïÿ äà èçòðèå ñàìî W:\ProgramData )
W: å ëîêàëåí äèñê çàêà÷åí èçâúí êîìïþòúðà. Ñ äâà êàáåëà îòçàä íà êîìïþòúðà: åäèí çà çàõðàíâàùî íàïðåæåíèå è åäèí çà äàííè. (Íå å USB external ).
-
20th December 2010 01:39 #14
-
20th December 2010 01:51 #15
Äà, èìà íåùî îáúðêàíî â ïðàâàòà âúðõó òåçè ïàïêè.
Íî ñåãà íå ìîãà äà ãè îïðàâÿ, íå ñòàâà.
ßâíî òðÿáâà äà ñå íàñïÿ è óòðå êàòî ñå ñúáóäÿ, ùå ñå îïèòàì äà ñè äàì Full Control.
-
20th December 2010 02:39 #16
Èìàì ÷óâñòâîòî, ÷å åäíî ëàéâ öä ùå òè ðåøè ìúêèòå.
-
20th December 2010 19:32 #17
Ñòàíà ñ live CD íà Ubuntu 10.04
Áåç íèêàêâî çàòðóäíåíèå è îò ïúðâè îïèò.
ßâíî Ubuntu íå ñå èíòåðåñóâà îò ïðàâàòà âúðõó ôàéëîâåòå.
( Çà ñúæàëåíèå ñ ïðîãðàìà íà Delphi íå ñòàíà. )
-
20th December 2010 19:54 #18
Ñ ëàéâ öä íà óèíäîóñ èëè äðóãî ëàéâ öä ïàê ùåøå äà ñòàíå.
-
21st December 2010 16:31 #19
-
21st December 2010 16:44 #20
Òåçè ïàïêè è ðú÷íî êàòî ñúì îïèòâàë äà ãè òðèÿ, ñà ñå ïðîòèâÿëè íà èçòðèâàíåòî. Ðåøàâàõ ïðîáëåìà ñ ãåïâàíå íà ñîáñòâåíîñòòà íàä ôàéëîâåòå è ñìÿíà íà íåîáõîäèìèòå ïðàâà çà äîñòúï. Áåç òåçè ïðîìåíè, äîðè àêàóíò ñ àäìèíèñòðàòîðñêè ïðàâà íå ìîæå äà ñå ñïðàâè.
| Aorus X570 Master | Ryzen 9 5900X | Hellhound 7900XT | G.SKILL 32GB DDR4 3800 CL16 | Enermax Galaxy 1000W | SSD Corsair MP510 960GB & WD-RE3 2 x 1TB RAID0 | Pioneer BDR-209EBK | Creative X-Fi Titanium Fatal1ty & GigaWorks S750 | ViewSonic VX3276-2K-MHD |




Reply With Quote

Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè