Текущий архив: 2007.03.18;
Скачать: CL | DM;

Вниз

Удаление файла   Найти похожие ветки 

← →
Sapos ©   (2007-02-22 16:01) [0]

Подскажите, кто-нибудь, как удалить кокретный файл на диске по нажатию кнопки?

---

← →
Dmitrij_K   (2007-02-22 16:03) [1]

Выделить в проводнике и нажать кнопку Delete на клавиатуре.

DeleteFile()

---

← →
RASkov   (2007-02-22 16:31) [2]

> [0] Sapos ©   (22.02.07 16:01)

Чё все на кнопку, ты так попробуй

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var SR: TSearchRec;
begin
 if FindFirst("C:\Temp\*.*", faAnyFile and faArchive, SR)=0 then DeleteFile("C:\Temp\"+SR.Name);
 FindClose(SR);
end;
:)
Провел мышкой по форме и Темп почистил :)

---

← →
clickmaker ©   (2007-02-22 16:52) [3]

> [2] RASkov   (22.02.07 16:31)

запатентуй идею ) + еще визуализацию наверни, при движении по форме чтобы изображения файлов стирались

---

← →
RASkov   (2007-02-22 17:00) [4]

> запатентуй идею )

Опасная идея :) могут и расстрелять....

---

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

Текущий архив: 2007.03.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.03 c