请帮忙看看这D7的代码在XE4里该怎样改法,该如何处理

请帮忙看看这D7的代码在XE4里该怎样改法

const
 path = 'c:\windows\system32\calc.exe';
var
 si:STARTUPINFOW;
 pi:PROCESS_INFORMATION;
begin
  ZeroMemory(@si, SizeOf(si));
  ZeroMemory(@Pi,SizeOf(pi));
  si.cb :=SizeOf(si);

  if CreateProcessW(path,'',nil,nil,False,0,nil,nil,si,pi) then
   begin
     CloseHandle(pi.hProcess);
     CloseHandle(pi.hThread);
   end;