<div dir="ltr">As a matter of historical curiosity, Delphi 1 was the first AND last version to support 16-bit targets.<br><br>Delphi 2 included Delphi 1 in the box for people that still needed 16-bit support but otherwise it was 32-bit all the way from Delphi 2 onward.<br><br><div>There is no direct Sleep() equivalent in 16-bit and some of the other techniques may help in the absence of that. NB. If you have a TCP/IP stack and can use PING then you can use that trick and when considering an IP address to [ab]use, there is (as they say) no place like home:<br><br><span style="font-size:12.8px"> ping 127.0.0.1</span><span style="font-size:12.8px"> -n 2 -w 10000 > NUL<br></span><br>Also note that the -w delay is BETWEEN pings. The first ping is instant, so to wait for that specified delay you need to ping TWICE (-n 2).<br><br>Redirecting to NUL also ensures that the PING output doesn't clutter up your screen (if that's important).<br><br><br><br>Incidentally, I still have an XP VM hosting my "Delphi Museum". That is, functional installations of Delphi 1 thru 6 so if you ever reach a point where you simply need to compile some Delphi 1 code feel free to get in touch. I may be able to act as a compiler proxy for you. :)</div></div><div class="gmail_extra"><br><div class="gmail_quote">On 25 February 2016 at 17:51, David O'Brien <span dir="ltr"><<a href="mailto:Dave@iccs.co.nz" target="_blank">Dave@iccs.co.nz</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Or "timeout 10" in a batch file...<br>
<div class="HOEnZb"><div class="h5"><br>
-----Original Message-----<br>
From: <a href="mailto:delphi-bounces@listserver.123.net.nz">delphi-bounces@listserver.123.net.nz</a> [mailto:<a href="mailto:delphi-bounces@listserver.123.net.nz">delphi-bounces@listserver.123.net.nz</a>] On Behalf Of Peter Ingham<br>
Sent: Thursday, 25 February 2016 5:45 pm<br>
To: NZ Borland Developers Group - Delphi List <<a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a>><br>
Subject: Re: [DUG] [computing] 16 bit compiler and Ancient Mariners<br>
<br>
On 25/02/2016 4:47 p.m., John Bird wrote:<br>
> I have some legacy software that requires DOSBOX (DOS emulator to run<br>
> 16 bit<br>
> software) when running on 64 bit Windows.<br>
><br>
> I would like to add some Delphi addons already written, mainly<br>
> console/command line apps, but all the versions of these I currently<br>
> have, (built with Delphi 5/6/2007) say simply This program requires<br>
> Win32 to run, ie they are 32 bit compiled even as console apps.<br>
><br>
> Is there any option in Delphi to compile for 16 bit OS or do I have to<br>
> find Delphi 1 or 2 or whichever was the last 16 bit version? (have<br>
> D2007 and versions up to Seattle)<br>
><br>
> One of the main things I want is to have a command to sleep for 10<br>
> seconds without Clobbering the CPU - exactly what sleep(10000) would do - on Win32<br>
> it uses a WIn32 API. If there is no 16 bit equivalent, ie no<br>
> implementation of sleep() in 16 bit Delphi, then I would like to know.<br>
><br>
> This question is mainly for other ancient mariners out there who like<br>
> me lived through a lot more of IT history than they like to admit.<br>
><br>
> _______________________________________________<br>
> NZ Borland Developers Group - Delphi mailing list<br>
> Post: <a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a><br>
> Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi" rel="noreferrer" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>
> Unsubscribe: send an email to <a href="mailto:delphi-request@listserver.123.net.nz">delphi-request@listserver.123.net.nz</a><br>
> with Subject: unsubscribe<br>
><br>
I'm presuming you want a command-line command you can call from a batch script.<br>
<br>
On systems with TCP/IP networking, you can use a ping to an address you know does not exist to simulate a Sleep (the subnet must exist).<br>
<br>
e.g: "ping 192.168.253 -n 1 -w 2000" for a 2 second delay or "ping<br>
192.168.253 -n 1 -w 10000" for 10 seconds.<br>
<br>
<br>
Regards<br>
_______________________________________________<br>
NZ Borland Developers Group - Delphi mailing list<br>
Post: <a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a><br>
Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi" rel="noreferrer" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>
Unsubscribe: send an email to <a href="mailto:delphi-request@listserver.123.net.nz">delphi-request@listserver.123.net.nz</a> with Subject: unsubscribe<br>
<br>
_______________________________________________<br>
NZ Borland Developers Group - Delphi mailing list<br>
Post: <a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a><br>
Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi" rel="noreferrer" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>
Unsubscribe: send an email to <a href="mailto:delphi-request@listserver.123.net.nz">delphi-request@listserver.123.net.nz</a> with Subject: unsubscribe<br>
</div></div></blockquote></div><br></div>