delay.c

ReactOS是一些高手根据Windows XP的内核编写出的类XP。内核实现机理和API函数调用几乎相同。甚至可以兼容XP的程序。喜欢研究系统内核的人可以看一看。

/*
 * DELAY.C - internal command.
 *
 * clone from 4nt delay command
 *
 * 30 Aug 1999
 *     started - Paolo Pantaleo <[e-mail]>
 *
 *
 */

#include <precomp.h>

#ifdef INCLUDE_CMD_DELAY


INT CommandDelay (LPTSTR cmd, LPTSTR param)
{
	DWORD val;
	DWORD mul=1000;

	if (_tcsncmp (param, _T("/?"), 2) == 0)
	{
		ConOutResPaging(TRUE,STRING_DELAY_HELP);
		return 0;
	}

	nErrorLevel = 0;

	if (*param==0)
	{
		error_req_param_missing ();
		return 1;
	}

	if (_tcsnicmp(param,_T("/m"),2) == 0)
	{
		mul = 1;
		param += 2;
	}

	val = _ttoi(param);
	Sleep(val * mul);

	return 0;
}

#endif /* INCLUDE_CMD_DELAY */