[DUG] [computing] 16 bit compiler and Ancient Mariners

[David O'Brien]

Or "timeout 10" in a batch file...

-----Original Message-----
From: delphi-bounces at listserver.123.net.nz [mailto:delphi-bounces at listserver.123.net.nz] On Behalf Of Peter Ingham
Sent: Thursday, 25 February 2016 5:45 pm
To: NZ Borland Developers Group - Delphi List <delphi at listserver.123.net.nz>
Subject: Re: [DUG] [computing] 16 bit compiler and Ancient Mariners

On 25/02/2016 4:47 p.m., John Bird wrote:
> I have some legacy software that requires DOSBOX (DOS emulator to run 
> 16 bit
> software) when running on 64 bit Windows.
>
> I would like to add some Delphi addons already written, mainly 
> console/command line apps, but all the versions of these I currently 
> have, (built with Delphi 5/6/2007) say simply This program requires 
> Win32 to run, ie they are 32 bit compiled even as console apps.
>
> Is there any option in Delphi to compile for 16 bit OS or do I have to 
> find Delphi 1 or 2 or whichever was the last 16 bit version?  (have 
> D2007 and versions up to Seattle)
>
> One of the main things I want is to have a command to sleep for 10 
> seconds without Clobbering the CPU - exactly what sleep(10000) would do - on Win32
> it uses a WIn32 API.   If there is no 16 bit equivalent, ie no
> implementation of sleep() in 16 bit Delphi, then I would like to know.
>
> This question is mainly for other ancient mariners out there who like 
> me lived through a lot more of IT history than they like to admit.
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at listserver.123.net.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at listserver.123.net.nz 
> with Subject: unsubscribe
>
I'm presuming you want a command-line command you can call from a batch script.

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).

e.g: "ping 192.168.253 -n 1 -w 2000"  for a 2 second delay or "ping
192.168.253 -n 1 -w 10000" for 10 seconds.


Regards
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at listserver.123.net.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at listserver.123.net.nz with Subject: unsubscribe