Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.044 c
7-5878
Dabus
2003-01-03 07:34
2003.03.03
Большие массивы


1-5578
NAlexey
2003-02-19 16:01
2003.03.03
Handle в WindProc?


14-5820
sad
2003-02-11 19:14
2003.03.03
JavaScript: определить существует ли файл на диске


4-5903
drin
2003-01-14 20:18
2003.03.03
Как определить видимо ли окно в таскбаре???


14-5791
malkolinge
2003-02-12 16:38
2003.03.03
!!!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский