Windows文件操作的直接函数调用

procedure OpenWindowsFilePropertys(FileName: string);
var
sei: TSHELLEXECUTEINFO;
begin
ZeroMemory(@sei, sizeof(sei));
sei.cbSize := sizeof(sei);
sei.lpFile := PChar(FileName);
sei.lpVerb := 'properties';
sei.fMask := SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(@sei);
end;

function ShellDeleteFileOrDir(const Source: string): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(source + #0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION + FOF_ALLOWUNDO;
end;
Result := (SHFileOperation(fo) = 0);
end;