Files
harbour-core/contrib/hbmisc/tests/calldll.prg
2013-10-09 20:08:24 +02:00

24 lines
348 B
Plaintext

/*
* Harbour Project source code:
*
* Copyright 2010 Viktor Szakats (vszakats.net/harbour)
* www - http://harbour-project.org
*
*/
#require "hbmisc"
PROCEDURE Main()
#if defined( __PLATFORM__WINDOWS )
LOCAL nFlags
nFlags := -1
? CallDll32( "InternetGetConnectedState", "wininet.dll", @nFlags, 0 )
? nFlags
#endif
RETURN