![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Удаление файла [D7, XP]
Sapos © (2007-02-22 16:01:00)Подскажите, кто-нибудь, как удалить кокретный файл на диске по нажатию кнопки?
RASkov (2007-02-22 17:00:00) [1]> запатентуй идею )
Опасная идея :) могут и расстрелять....
clickmaker (2007-02-22 16:52:00) [2]
> [2] RASkov (22.02.07 16:31)
запатентуй идею ) + еще визуализацию наверни, при движении по форме чтобы изображения файлов стирались
RASkov (2007-02-22 16:31:00) [3]> [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;
:)
Провел мышкой по форме и Темп почистил :)
Dmitrij_K (2007-02-22 16:03:00) [4]Выделить в проводнике и нажать кнопку Delete на клавиатуре.
DeleteFile()