![]() |
![]() |
Вальдемар11 16.10.2004 - 02:20 |
Доброго времени суток всем! Суть такая : с написаной мной программы при нажатии кнопки нужно чтобы удалялся файл, как при обычной команде с мышы (правая кнопка\удалить). Во многих местах искал не смог найти. Может кто подскажет? |
Volvo 1 - 16.10.2004 - 02:31 |
procedure TForm1.Button1Click(Sender: TObject); begin if DeleteFile('c:\2.txt') then ShowMessage('Файл успешно удален!') else ShowMessage('Ошибка! Вот ее код: '+IntToStr(GetLastError)); end; |