Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Удаление файла в корзину
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Удаление файла в корзину
Функция удаляет файл, имя которого указаывается в аргументе FileName
в корзину. Второй необязательный параметр указывает на Handle окна,
которое будет родительским для отображаемых системой диалоговых окон
Зависимости: Windows, ShellAPI, Forms
Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright: Dimka Maslov
Дата: 06 мая 2002 г.
***************************************************** }
function Recycle(const
FileName: string
; Wnd: HWND = 0): Boolean;
var
FileOp: TSHFileOpStruct;
begin
FillChar(FileOp, SizeOf(FileOp), 0);
if
Wnd = 0 then
Wnd := Application.Handle;
FileOp.Wnd := Wnd;
FileOp.wFunc := FO_DELETE;
FileOp.pFrom := PChar(FileName);
FileOp.fFlags := FOF_ALLOWUNDO or
FOF_NOERRORUI or
FOF_SILENT;
Result := (SHFileOperation(FileOp) = 0) and
(not
FileOp.fAnyOperationsAborted);
end
;
Пример использования:
procedureTForm1.Button1Click(Sender: TObject) begin
Recycle('d:folderfilename.ext', Handle); end
;