CreateProcessW TOTALCMD

 function StartTOTALCMD64(TOTALCMD64: string): Boolean;
var
 si: TStartupInfo;
 pi: TProcessInformation;
begin
ZeroMemory(@si,sizeof(si));
si.cb := SizeOf(si);
si.dwFlags:=STARTF_USESHOWWINDOW;
si.wShowWindow:=SW_SHOWMAXIMIZED;
result:=CreateProcessW(LPWSTR(TOTALCMD64),nil, nil, nil, False, 0, nil, nil, SI, PI);
//StartTOTALCMD64('C:\totalcmd\TOTALCMD64.EXE');//применение
end;