Hапример, так:
program del;
uses
ShlObj;
//function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall;
Var
T: TSHFileOpStruct;
P: String;
begin
P:='C:\Windows\System\EL_CONTROL.CPL';
With T do
Begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := Pchar(P);
fFlags := FOF_ALLOWUNDO
End;
SHFileOperation(T);
End.
Ed Lagerburg
lagerbrg@euronet.nlПочитайте побольше о функции SHFileOperation - она позволяет выполнить все распространённые операции по работе с файлами, включая взаимодействие с пользователем.