在with aaa前加一句 ZeroMemory(@aaa, sizeof(aaa));
解决方案 »
- IdTelnet控件连接Unix系统问题
- 有treeview二级显示,当选择二级的某一个节点时,二级节点的其它节点为暂不可编辑状态
- 高分求助!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 关于Win2K设置目录和文件所有者(SetFileSecurity)的问题!
- ADOquery如何快速定位某一记录??
- delphi有前途吗?
- 写函数的问题?
- dbgrid控件的一个小失误.
- ADO 与 Sybase
- 请问在Delphi中如何将一个extended型强制转换为integer型。请哪位大侠给出所出强制转换的函数?
- 从PASCAL到DELPHI的变化有多大???
- 难题!!!
Var
aaa:TSHFileOpStruct;
ccc:String;
begin
ccc:='E:\Borland\Delphi5\Delphi5\Projects\test.txt'#0#0;
With aaa do
Begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=Pchar(ccc);
pTo:=nil;
fFlags:=FOF_ALLOWUNDO;
End;
SHFileOperation(aaa);
end;