内存占用的问题
这个方法一调用内存就上升4兆多，请大家帮着分析分析！
function ShowFileProperties(OwnerWnd: HWND; FileName: String): Integer;
var
SEI: ShellExecuteInfo;
begin
with SEI do
begin
cbSize:= SizeOf(SEI);

fMask:= SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NO_CONSOLE;
Wnd:= OwnerWnd;
lpVerb:= 'Properties';
lpFile:= PChar(FileName);
lpParameters:= nil;
lpDirectory:= nil;
lpIDList:= nil;
nShow:= SW_SHOW;
hInstApp:= 0;
end;
ShellExecuteEx(@SEI);
Result:= SEI.hInstApp;
end;

[解决办法]
ShellExecuteInfo