function RunDosCommand(Command: string): string;

var

  hReadPipe: THandle;

  hWritePipe: THandle;

  SI: TStartUpInfo;

  PI: TProcessInformation;

  SA: TSecurityAttributes;

  BytesRead: DWORD;

  Dest: array[..] of AnsiChar;

  CmdLine: array[..] of char;

  TmpList: TStringList;

  Avail, ExitCode, wrResult: DWORD;

  osVer: TOSVERSIONINFO;

  tmpstr: AnsiString;

begin

  osVer.dwOSVersionInfoSize := Sizeof(TOSVERSIONINFO);

  GetVersionEX(osVer);

  if osVer.dwPlatformId = VER_PLATFORM_WIN32_NT then

  begin

    SA.nLength := SizeOf(SA);

    SA.lpSecurityDescriptor := nil; //@SD;

    SA.bInheritHandle := True;

    CreatePipe(hReadPipe, hWritePipe, @SA, );

  end

  else

    CreatePipe(hReadPipe, hWritePipe, nil, );

  try

    FillChar(SI, SizeOf(SI), );

    SI.cb := SizeOf(TStartUpInfo);

    SI.wShowWindow := SW_HIDE;

    SI.dwFlags := STARTF_USESHOWWINDOW;

    SI.dwFlags := SI.dwFlags or STARTF_USESTDHANDLES;

    SI.hStdOutput := hWritePipe;

    SI.hStdError := hWritePipe;

    StrPCopy(CmdLine, Command);

    if CreateProcess(nil, CmdLine, nil, nil, True, NORMAL_PRIORITY_CLASS, nil, nil, SI, PI) then

    begin

      ExitCode := ;

      while ExitCode =  do

      begin

        wrResult := WaitForSingleObject(PI.hProcess, );

        if PeekNamedPipe(hReadPipe, @Dest[], , @Avail, nil, nil) then

        begin

          if Avail >  then

          begin

            TmpList := TStringList.Create;

            try

              FillChar(Dest, SizeOf(Dest), );

              ReadFile(hReadPipe, Dest[], Avail, BytesRead, nil);

              TmpStr := Copy(Dest, , BytesRead - );

              TmpList.Text := TmpStr;

              Result := string(tmpstr);

            finally

              TmpList.Free;

            end;

          end;

        end;

        if wrResult <> WAIT_TIMEOUT then ExitCode := ;

      end;

      GetExitCodeProcess(PI.hProcess, ExitCode);

      CloseHandle(PI.hProcess);

      CloseHandle(PI.hThread);

    end;

  finally

    CloseHandle(hReadPipe);

    CloseHandle(hWritePipe);

  end;

end;

function GetURLResult(url: string): string;

begin

  Result := RunDosCommand(Format('http.exe "%s"', [url]));

  if Result.ToLower.StartsWith('error') then

    Exit('error');

  Result := Copy(Result, , Result.IndexOf('}') + );

end;

Edit1.Text := GetURLResult('http://0.0.0.0/test/getResult/94bdb076dcdb8f6bab77321ece18f8af');