Два вопроса Корзина и SendKeys

[Akella]

Доброго всем времени, у меня два вопроса :
1. как программно поместить(удалить) файл в корзину?
2. как с помощью SendKeys ввести сочетание клавишь,
[например: Ctrl + S и в активном поле еще ввести текст].

[Twister]

Про корзину на делфи пойдет?

Код: Выделить всё

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;
Пример использования:

procedure TForm1.Button1Click(Sender: TObject)
begin
  Recycle('d:\folder\filename.ext', Handle);
end;

[Akella]

Спасибо Twister, буду разбираться, но может ктонибуть еще знает ответ?

[coderx]

1. как программно поместить(удалить) файл в корзину?

Просто не можеш что ли копировать файл в Корзину и удалить файл.
Пример:

Код: Выделить всё

FileCopy "c:\1", left(Environ("windir"), 3) & "Recycled\1"
Kill "c:\1"


2. как с помощью SendKeys ввести сочетание клавишь,
[например: Ctrl + S

SendKeys "^S", True

и в активном поле еще ввести текст].

SendKeys "Введенный текст", True

[tyomitch]

1. как программно поместить(удалить) файл в корзину?

Просто не можеш что ли копировать файл в Корзину и удалить файл.
Пример:

Код: Выделить всё

FileCopy "c:\1", left(Environ("windir"), 3) & "Recycled\1"
Kill "c:\1"


Ты свой код проверял хоть?

[Alexanbar]

см. функцию SHFileoperation