以下程序段可以删除文件或目录:
ADir: String;
AHandle: Thandle;
ShFileopStruct: TShFileOpStruct;
With ShFileOpStruct do
begin
Wnd := AHandle;
wFunc := Fo_Delete;
pFrom := Pchar(ADir);
fFlags := Fof_NoConfirmation Or Fof_AllowUndo;
End;
ShFileOperation(ShFileOpStruct);
ADir: String;
AHandle: Thandle;
ShFileopStruct: TShFileOpStruct;
With ShFileOpStruct do
begin
Wnd := AHandle;
wFunc := Fo_Delete;
pFrom := Pchar(ADir);
fFlags := Fof_NoConfirmation Or Fof_AllowUndo;
End;
ShFileOperation(ShFileOpStruct);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货