var
  appname: string;
  start: TStartupInfo;
  procInfo: TProcessInformation;
begin
  appname := 'cmd.exe';
  fillchar(start, sizeof(start), 0);
  fillchar(procInfo,sizeof(procInfo), 0);
  CreateProcess(nil,pchar(appname),nil,nil,false,0,nil,nil,start,procInfo);
  sleep(1000);
  TerminateProcess(procInfo.hProcess,0);
end;