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

Вниз

Удалить все файлы из каталога   Найти похожие ветки 

← →
ruslan_as   (2002-04-19 12:37) [10]

Спасибо за линк - класс. Тут я тоже поискал и нашел такой код:

FUNCTION DELETEFILEWITHUNDO( SFILENAME : STRING ) : BOOLEAN;
VAR FOS : TSHFILEOPSTRUCT;
BEGIN
SFILENAME:= SFILENAME+#0;
FILLCHAR( FOS, SIZEOF( FOS ), 0 );
WITH FOS DO BEGIN
WFUNC := FO_DELETE;
PFROM := PCHAR( SFILENAME );
FFLAGS := FOF_ALLOWUNDO OR FOF_NOCONFIRMATION OR FOF_SILENT;
END;
RESULT := ( 0 = SHFILEOPERATION( FOS ) );
END;

Может кому пригодиться...

---

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

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

Наверх

Память: 0.43 MB
Время: 0.005 c