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]

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

Другой вариант удаление через командную строку
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!!!

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