Results 1 to 20 of 20
Thread: Delphi:
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
-
20th December 2010 00:28 #4
-
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
-
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
-
20th December 2010 02:39 #16
-
20th December 2010 19:32 #17
-
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