Borrar archivos

[zeta2]

Empezado por roman

Psee... Bonito truco que también hubieras encontrado aquí en el club, aunque yo prefiero éste:

Código Delphi [-]var FileInfo: TShFileOpStruct; begin FileInfo.Wnd := Handle; FileInfo.wFunc := FO_DELETE; FileInfo.pFrom := 'C:\Ruta\Con\Los\Archivos\*.cds'; FileInfo.pTo := nil; FileInfo.fFlags := FOF_NOCONFIRMATION; ShFileOperation(FileInfo); end;


// Saludos

Me salta un error al definir la variable.
TShFileOpStruct El error es el siguiente:

[Error] Unit1.pas(93): Undeclared identifier: 'TSHFileOpStruct'
[Error] Unit1.pas(96): Missing operator or semicolon
[Error] Unit1.pas(97): Missing operator or semicolon
[Error] Unit1.pas(98): Missing operator or semicolon
[Error] Unit1.pas(99): Missing operator or semicolon
[Error] Unit1.pas(100): Missing operator or semicolon
[Error] Unit1.pas(102): Undeclared identifier: 'ShFileOperation'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Este error me impide ejecutar el programa. Que puede ser?

Saludos.