<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>Already investigated that – the DOSBOX emulator has no Timeout, or ping
command, no networking at all. If there is no sleep command that
does not eat the CPU then I don’t need to look further....</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=jsmith@deltics.co.nz
href="mailto:jsmith@deltics.co.nz">Jolyon Direnko-Smith</A> </DIV>
<DIV><B>Sent:</B> Thursday, February 25, 2016 7:19 PM</DIV>
<DIV><B>To:</B> <A title=delphi@listserver.123.net.nz
href="mailto:delphi@listserver.123.net.nz">NZ Borland Developers Group - Delphi
List</A> </DIV>
<DIV><B>Subject:</B> Re: [DUG] [computing] 16 bit compiler and Ancient
Mariners</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<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: 12px"> ping 127.0.0.1</SPAN><SPAN
style="FONT-SIZE: 12px"> -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>
<DIV> </DIV>
<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="PADDING-LEFT: 1ex; BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex">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>
<DIV> </DIV></DIV>
<P>
<HR>
_______________________________________________<BR>NZ Borland Developers Group -
Delphi mailing list<BR>Post: delphi@listserver.123.net.nz<BR>Admin:
http://delphi.org.nz/mailman/listinfo/delphi<BR>Unsubscribe: send an email to
delphi-request@listserver.123.net.nz with Subject:
unsubscribe</DIV></DIV></DIV></BODY></HTML>