Results 1 to 20 of 20

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location: Çâåçäíà ñèñòåìà Äåíòîèí
    Posts: 948

    Delphi: Èçòðèâàíå íà ôàéëîâå áåç óñïåõ

    Êîïèðàë ñúì íÿêîëêî ïàïêè îò Windows 7 íà íåñèñòåìåí äÿë.
    Ñåãà íå ìè òðÿáâàò, à íå ìîãà äà ãè èçòðèÿ.
    Íàïèñàõ åäíà ïðîãðàìêà íà Delphi, êîÿòî äà èçòðèâà ñúäúðæàíèåòî íà ïàïêà âêëþ÷èòåëíî ïîäïàïêèòå è ôàéëîâåòå è.
    Àêî ïîäàì äðóãà ïàïêà ðàáîòè, êàòî ïðîâåðÿâà ôàéëîâåòå äàëè ñà Hidden, SysFiles èëè Read-only è ñúîòâåòíî ïðåìàõâà òåçè ñâîéñòâà, ïðåäè äà ãè èçòðèå;
    Îáà÷å íå èçòðèâà êîïèðàíèòå îò ìåí ïàïêè:
    W:\Documents and Settings
    W:\Program Files
    W:\Program Files (x86)
    W:\ProgramData
    W:\Windows
    Èìà ëè íÿêàêúâ íà÷èí, äà ãè èçòðèÿ, ÷å çàåìàò äîñòà äèñêîâî ìÿñòî.
    Áëàãîäàðÿ !

  2. #2
    Banned haste's Avatar
    Join Date: Mar:2006
    Location: Ñîôèÿ
    Posts: 759
    Ïðîáâàé ñ Windows Unlocker.

    Çàá.: finalista, òåìàòà íå å çà òîçè ðàçäåë (çà "Îáù ñîôòóåðåí ôîðóì" e), îñâåí àêî íå ïèòàø çà êîä, êîéòî äà ïðàâè òîâà, êîåòî ïèòàø, êîåòî íå ñè ëè÷è îò ìíåíèåòî òè.

  3. #3
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location: Çâåçäíà ñèñòåìà Äåíòîèí
    Posts: 948
    Ïèòàì çà êîä íà Delphi.

  4. #4
    Banned haste's Avatar
    Join Date: Mar:2006
    Location: Ñîôèÿ
    Posts: 759
    Ïðîáâàé ñ

    Code:
    ShowMessage('TestDir remove failed with error : '+
                       IntToStr(GetLastError));
    äà âèäèø êàêâî òè èçêàðâà.

    Âèæ òóê, çà ïîäðîáíîñòè.

  5. #5
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location: Çâåçäíà ñèñòåìà Äåíòîèí
    Posts: 948
    Ùå èçïðîáâàì :
    Code:
    ShowMessage('TestDir remove failed with error : '+ IntToStr(GetLastError));
    Âñúùíîñò òîçè ïðèìåð å ìíîãî ëåñåí.
    Ñúçäàâàíå íà íîâà ïàïêà ( åñòåñòâåíî ïðàçíà ).
    Èçòðèâàíå íà ïðàçíàòà ïàïêà.
    Ìîÿò ñëó÷àé å ïî-ñëîæåí, çàùîòî ïîäàâàì êàòî ïàðàìåòúð ïðèìåðíî 'W:\ProgramData', à ïðîöåäóðàòà òðÿáâà äà íàìåðè âñè÷êè ôàéëîâå âúòðå âêëþ÷èòåëíî â ïîä-ïàïêèòå è äà ãè èçòðèå. ×àê íàêðàÿ äà èçòðèå èçïðàçíåíèòå ïàïêè îòâúòðå íàâúí.

  6. #6
    Áåëûé è ïóøèñòûé Bombera's Avatar
    Join Date: Jul:2001
    Location: Êàçàíëúê 4EVA
    Posts: 13,833
    Íàðúêà èçòðèâàò ëè ñå? Ïðàâà íàä òÿõ èìàø ëè?
    Íî äàé äà âèäèì êàêâî òè âðúùà GetLastError();
    Ñ ôàéëîâåòå âúòðå ëè ñå îïèòâàø äà ãè òðèåø? Àêî å òàêà, òè òðÿáâà òàçè ôóíêöèÿ SHFileOperation
    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|Áåç èñòèíñêî âîäíî

  7. #7
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location: Çâåçäíà ñèñòåìà Äåíòîèí
    Posts: 948
    Îïèòâàì äà èçòðèÿ ôàéëîâåòå âúòðå.
    Íà ðúêà íå ñå èçòðèâàò ( îñâåí â äðóãè ïàïêè, êîèòî íå ñà íà 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;

  8. #8
    Áåëûé è ïóøèñòûé Bombera's Avatar
    Join Date: Jul:2001
    Location: Êàçàíëúê 4EVA
    Posts: 13,833
    îñâåí â äðóãè ïàïêè, êîèòî íå ñà íà Windows
    Íå ðàçáðàõ. Íà ðàáîòåù Óèíäîóñ èñêàø äà ìó èçòðèåø ôàéëîâåòå, òåçè êîèòî ïîëçâà â ìîìåíòà?
    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|Áåç èñòèíñêî âîäíî

  9. #9
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location: Çâåçäíà ñèñòåìà Äåíòîèí
    Posts: 948
    Quote Originally Posted by Bombera View Post
    Íå ðàçáðàõ. Íà ðàáîòåù Óèíäîóñ èñêàø äà ìó èçòðèåø ôàéëîâåòå, òåçè êîèòî ïîëçâà â ìîìåíòà?
    Èìàõ ãëóïîñòòà äà êîïèðàì ïàïêè îò ðàáîòåù Windows 7 íà äðóã äèñê.
    Ñåãà íå ìîãà äà ãè èçòðèÿ îò äðóãèÿ äèñê - òàì èçîáùî íå ñà ðàáîòåùè, ñàìî çàåìàò ìÿñòî.

  10. #10
    Áåëûé è ïóøèñòûé Bombera's Avatar
    Join Date: Jul:2001
    Location: Êàçàíëúê 4EVA
    Posts: 13,833
    Èñêàø äà ãè èçòðèåø ïðîñòî èëè èñêàø äà ñå óïðàæíÿâàø äà ãè èçòðèåø ñ òâîé êîä? Ìîæå è äà íå ñòàíå. Íå ñúì óáåäåí, ÷å ñëåä êàòî ñè ãè êîïèðàë/ïðåìåñòèë, Óèíäîóñà íå ãè èçïîçëâà â ìîìåíòà. Àêî å òàêà íÿìà äà ìîæåø äà ãè èçòðèåø, äîêàòî òîé ðàáîòè.
    Àêî ïðîñòî ñè ãè êîïèðàë, ñïðè Óèíäîóñà, ðàçêà÷è òîçè âòîðèÿ äèñê, ïóñíè ÏåÖå-òî áåç íåãî, ïîñëå ïàê ãî çàêà÷è. Òàêà òðÿáâà äà ñå èçòðèÿò.
    Äàé äà âèäèì êàêâî òè äàâà 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|Áåç èñòèíñêî âîäíî

  11. #11
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location: Çâåçäíà ñèñòåìà Äåíòîèí
    Posts: 948
    Äàâà ãðåøêà:
    DeleteFile failed with error : 5

  12. #12
    Áåëûé è ïóøèñòûé Bombera's Avatar
    Join Date: Jul:2001
    Location: Êàçàíëúê 4EVA
    Posts: 13,833
    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|Áåç èñòèíñêî âîäíî

  13. #13
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location: Çâåçäíà ñèñòåìà Äåíòîèí
    Posts: 948
    Â ïàïêèòå èìà òàêèâà ôàéëîâå, êàêâèòî å èìàëî â
    C:\Windows
    C:\Program Files
    ......
    C:\ProgramData
    ïðåäè íÿêîëêî ìåñåöà
    Íå ìè òðÿáâàò, íî íå ìîãà äà ãè èçòðèÿ äîðè ñ Unlocker ( èçëúãàõ - óñïÿ äà èçòðèå ñàìî W:\ProgramData )


    W: å ëîêàëåí äèñê çàêà÷åí èçâúí êîìïþòúðà. Ñ äâà êàáåëà îòçàä íà êîìïþòúðà: åäèí çà çàõðàíâàùî íàïðåæåíèå è åäèí çà äàííè. (Íå å USB external ).

  14. #14
    Registered User SAGE's Avatar
    Join Date: Sep:2005
    Location: Sofia
    Posts: 171
    Quote Originally Posted by finalista View Post
    Â ïàïêèòå èìà òàêèâà ôàéëîâå, êàêâèòî å èìàëî â
    C:\Windows
    C:\Program Files
    ......
    C:\ProgramData
    ïðåäè íÿêîëêî ìåñåöà
    Íå ìè òðÿáâàò, íî íå ìîãà äà ãè èçòðèÿ äîðè ñ Unlocker ( èçëúãàõ - óñïÿ äà èçòðèå ñàìî W:\ProgramData )


    W: å ëîêàëåí äèñê çàêà÷åí èçâúí êîìïþòúðà. Ñ äâà êàáåëà îòçàä íà êîìïþòúðà: åäèí çà çàõðàíâàùî íàïðåæåíèå è åäèí çà äàííè. (Íå å USB external ).
    Âåðîÿòíî íÿìàø "Full control" íà "File and Folder Permissions".
     "Properties(íà ïàïêàòà)\security\Group or user names: Edit\", âêëþ÷âàø "Full control" è øðåäïîëàãàì, ÷å íÿìà äà èìàø ïðîáëåì ñ èçòðèâàíåòî.

  15. #15
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location: Çâåçäíà ñèñòåìà Äåíòîèí
    Posts: 948
    Äà, èìà íåùî îáúðêàíî â ïðàâàòà âúðõó òåçè ïàïêè.
    Íî ñåãà íå ìîãà äà ãè îïðàâÿ, íå ñòàâà.
    ßâíî òðÿáâà äà ñå íàñïÿ è óòðå êàòî ñå ñúáóäÿ, ùå ñå îïèòàì äà ñè äàì Full Control.

  16. #16
    Registered User badboybadboy's Avatar
    Join Date: Mar:2008
    Location: sofia
    Posts: 10,496
    Èìàì ÷óâñòâîòî, ÷å åäíî ëàéâ öä ùå òè ðåøè ìúêèòå.

  17. #17
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location: Çâåçäíà ñèñòåìà Äåíòîèí
    Posts: 948
    Ñòàíà ñ live CD íà Ubuntu 10.04
    Áåç íèêàêâî çàòðóäíåíèå è îò ïúðâè îïèò.
    ßâíî Ubuntu íå ñå èíòåðåñóâà îò ïðàâàòà âúðõó ôàéëîâåòå.
    ( Çà ñúæàëåíèå ñ ïðîãðàìà íà Delphi íå ñòàíà. )

  18. #18
    Registered User badboybadboy's Avatar
    Join Date: Mar:2008
    Location: sofia
    Posts: 10,496
    Ñ ëàéâ öä íà óèíäîóñ èëè äðóãî ëàéâ öä ïàê ùåøå äà ñòàíå.

  19. #19
    Registered abUser ike's Avatar
    Join Date: Jul:2004
    Location: sofiÿ
    Posts: 4,965
    Quote Originally Posted by finalista View Post
    ( Çà ñúæàëåíèå ñ ïðîãðàìà íà Delphi íå ñòàíà. )
    Îò ñòðàíè èçãëåæäà, âñå åäíî ïðîãðàìèòå íà Delphi ñà ìàãè÷åñêè è ïðàâÿò íåùà, êîèòî íîðìàëíèÿ windows íå ãè ìîæå.
    Have no fear ike iz here.
    CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color

  20. #20
    Íàãëà òâàð Exhumator's Avatar
    Join Date: Jan:2005
    Location: Sofia
    Posts: 14,687
    Òåçè ïàïêè è ðú÷íî êàòî ñúì îïèòâàë äà ãè òðèÿ, ñà ñå ïðîòèâÿëè íà èçòðèâàíåòî. Ðåøàâàõ ïðîáëåìà ñ ãåïâàíå íà ñîáñòâåíîñòòà íàä ôàéëîâåòå è ñìÿíà íà íåîáõîäèìèòå ïðàâà çà äîñòúï. Áåç òåçè ïðîìåíè, äîðè àêàóíò ñ àäìèíèñòðàòîðñêè ïðàâà íå ìîæå äà ñå ñïðàâè.
    | 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 |

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè