说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

将文件放入回收站-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
将文件放入回收站-Delphi资料

program del;

uses ShellApi;

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.

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘