Скачать: CL | DM;

Kak udalit ne pustoj katalog   Найти похожие ветки 

← →
Nehto   (2003-02-19 19:55) [0]

Podskazhite please, kak udalit nepustoj katalog, ved RemoveDir tolko pustie moget udaljat

---

← →
Романов Р.В. ©   (2003-02-19 19:59) [1]

см. SHFileOperation

---

← →
Nehto   (2003-02-19 20:08) [2]

Ja diko izvinjaus, a chto eto ?

---

← →
Романов Р.В. ©   (2003-02-19 20:13) [3]

Эта такая Api фукция. Воспользуя www.google.com для поиска примеров ее применения.

---

← →
smok_er   (2003-02-19 20:16) [4]

Зайди на единую базу процедур и функций
там это есть
сам только недавно там взял эту функцию.

---

← →
Романов Р.В. ©   (2003-02-19 20:48) [5]

Другой вариант удаление через командную строку
procedure DeleteDir(const ADir: string);
function GetCmd: string;
var
Buffer: array[0..4095] of Char;
begin
SetString(Result, Buffer, GetEnvironmentVariable(PChar("ComSpec"), Buffer, SizeOf(Buffer)));
end;
var
Dir: string;
begin
if Copy(ADir, Length(ADir), 1) <> "\" then
Dir := ADir + "\"
else
Dir := ADir;
if DirectoryExists(Dir) then
ShellExecute(GetDesktopWindow, nil, PChar(GetCmd),PChar("/C rd /S /Q "+Dir),nil, SW_HIDE)
end;

---

← →
Nehto   (2003-02-19 20:50) [6]

Spasibo!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c