Bot�o cortar arquivos (tipo explorador)

Question

Estou a fazer um explorador e gostaria de saber o c�digo do bot�o cortar arquivos/ficheiros.

Jonhy the Riper j� me mandou este c�digo, e que eu lhe agrade�o mas s� d� para textos:

Bot�o Cortar
procedure TMainForm.EditCut(Sender: TObject);
begin
Editor.CutToClipboard;
end;

Se algu�m me poder ajudar eu agrade�o.
Andreia Barbosa

Jonhy Riper · Answer

Andreia, ontem n�o foi possivel te dar a resposta correta, mas � o seguinte, utilizando a Api do Windows, como um navegador comum que tem a origem e o destino:

Declare na uses: ShellApi

P
procedure TForm1.Button1Click(Sender: TObject);
var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY; // <<== � ESSA LINHA AQUI ANDREIA(FO) **
pFrom := PChar(�c:\teste\*.txt�); //<==ARQUIVO ORIGEM
pTo := PChar(�a:\�); //<<==ARQUIVO DESTINO
fFlags:= FOF_ALLOWUNDO; // FLAG PARA COPIA
end;
SHFileOperation(Dados);
end;

**na variavel wFunc, altere suas propriedades para
Mover = FO_MOVE
Apagar=FO_DELETE

Caso essa resposta n�o resolva seu problema, retorne no F�rum ou no e-mail joao@funape.org.br