www.FiveTechSoft.com
https://forums.fivetechsoft.com/
Code: Select all
// GETSYSIN.PRG
#include "FiveWin.ch"
#define HORZRES 8
#define VERTRES 10
#Define BITSPIXEL 12
#define PLANES 14
#define LOGPIXELSX 88
#define LOGPIXELSY 90
//----------------------------------------------------------------------------//
Function LargeFonts( nPixelX, nPixelY )
Local hDC
hDC := CreateDC( "DISPLAY", "", "" )
nPixelX := GetDeviceCaps( hDC, LOGPIXELSX )
nPixelY := GetDeviceCaps( hDC, LOGPIXELSY )
DeleteDC( hDC )
Return ( nPixelX >= 120 )
//----------------------------------------------------------------------------//
function DispFontPerSize()
local hDC, nPixelX
hDC = CreateDC( "DISPLAY", "", "" )
nPixelX = GetDeviceCaps( hDC, LOGPIXELSX )
DeleteDC( hDC )
return ( nPixelX / 96 )
//----------------------------------------------------------------------------//
function ColorsQty()
local hDC, nPlanes, nBitsPixel
hDC = CreateDC( "DISPLAY", "", "" )
nPlanes = GetDeviceCaps( hDC, PLANES )
nBitsPixel = GetDeviceCaps( hDC, BITSPIXEL )
DeleteDC( hDC )
return Int( 2 ^ ( nPlanes * nBitsPixel ) )
//----------------------------------------------------------------------------//
function ScrResolution( nWidth, nHeight )
local hDC
hDC = CreateDC( "DISPLAY", "", "" )
nWidth = GetDeviceCaps( hDC, HORZRES )
nHeight = GetDeviceCaps( hDC, VERTRES )
DeleteDC( hDC )
return { nWidth, nHeight }
//----------------------------------------------------------------------------//
#ifdef __CLIPPER__
function cWinVersion()
local cVersion := ""
If IsWin95()
cVersion = "95"
elseif IsWinNT()
if GetWinVer()[ 2 ] == 95
cVersion = "2000"
else
cVersion = "NT"
endif
endif
return cVersion
#else
#define VER_PLATFORM_WIN32s 0
#define VER_PLATFORM_WIN32_WINDOWS 1
#define VER_PLATFORM_WIN32_NT 2
function cWinVersion()
local aVersion := GetVersion()
local cVersion := ""
do case
case aVersion[ 4 ] == VER_PLATFORM_WIN32_NT
if aVersion[ 1 ] == 6
if aVersion[ 2 ] == 0
cVersion = "Vista"
elseif aVersion[ 2 ] == 1
cVersion = "7"
elseif aVersion[ 2 ] == 2
if IsWindows10()
cVersion = "10"
else
cVersion = "8"
endif
endif
endif
if aVersion[ 1 ] == 5
if aVersion[ 2 ] == 2
cVersion = "Server 2003"
elseif aVersion[ 2 ] == 1
cVersion = "XP"
elseif aVersion[ 2 ] == 0
cVersion = "2000"
endif
endif
if aVersion[ 1 ] <= 4
cVersion = "NT"
endif
case aVersion[ 4 ] == VER_PLATFORM_WIN32_WINDOWS
if aVersion[ 1 ] == 4
if aVersion[ 2 ] == 90
cVersion = "ME"
elseif aVersion[ 2 ] == 10
cVersion = "98"
elseif aVersion[ 2 ] == 0
cVersion = "95"
endif
endif
endcase
cVersion += IF( IsWin64(), " de 64 ", " de 32 " ) + "Bits"
return cVersion
#endif
//----------------------------------------------------------------------------//
function IsWinVista()
return ( "Vista" $ cWinVersion() )
//----------------------------------------------------------------------------//
function IsWinXP()
return ( "XP" $ cWinVersion() )
//----------------------------------------------------------------------------//
function IsWin2000()
return ( "2000" $ cWinVersion() )
//----------------------------------------------------------------------------//
function IsWin7()
return "7" $ cWinVersion()
//----------------------------------------------------------------------------//
function IsWin8()
return "8" == cWinVersion()
//----------------------------------------------------------------------------//
#define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002
function IsWindows10()
local oReg := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Windows NT\CurrentVersion",;
.f. )
local cProductName := oReg:Get( "ProductName" )
oReg:Close()
return "Windows 10" $ cProductName
//----------------------------------------------------------------------------//
function GetSysFont()
do case
case ! IsWinNt() .and. ! IsWin95() // Win 3.1
return "System"
#ifdef __CLIPPER__ // A.L. 28/04/03, It fails with FWH/FW++
case IsWin2000() // Win2000
return "Ms Sans Serif" // "SysTahoma"
#endif
endcase
return "Ms Sans Serif" // Win NT, 9x
//----------------------------------------------------------------------------//
function BorlandVersion()
#ifdef __XHARBOUR__
local cHexVer := NumToHex( BorlandC() )
#else
local cHexVer := hb_NumToHex( BorlandC() )
#endif
return SubStr( cHexVer, 1, 1 ) + "." + SubStr( cHexVer, 2 )
//----------------------------------------------------------------------------//
function SaveDesktop( cPngFileName )
local o := TWindow()
DestroyWindow( o:hWnd )
o:hWnd = GetDesktopWindow()
o:SaveToPng( cPngFileName )
return nil
//----------------------------------------------------------------------------//
#define SM_CXFULLSCREEN 16
#define SM_CYFULLSCREEN 17
function ScreenWidth()
return GetSysMetrics( SM_CXFULLSCREEN )
function ScreenHeight()
return GetSysMetrics( SM_CYFULLSCREEN )
//----------------------------------------------------------------------------//
function IsWin64()
return ! Empty( GetEnv( "ProgramFiles(x86)" ) )
//----------------------------------------------------------------------------//
look, mira, olha:sambomb wrote:Gostaria de utilizar a função OS pois ela já retorna o modelo do SO também pois alguns modelos geram incompatibilidade, como o windows 7 starter...
? "Versão windows: " + OS() //Versão windows: Windows 7 Professional 6.01.7601 Service Pack 1
Code: Select all
aAdd( ::aTexto,"Memória: " + cValToChar( Int( nExtMem() / ( 1024 * 1024 ) ) + 1 ) + " MBs" )Code: Select all
#include "FiveWin.ch"
function Main()
LOCAL cMemoria, nBytes, nKBytes, nMBytes, nGBytes
nBytes := nExtMem()
nKBytes := nBytes / 1014
nMBytes := nKBytes / 1024
nGBytes := nMBytes / 1014
// Com erro - With Error
// aAdd( ::aTexto,"Memória: " + cValToChar( Int( nExtMem() / ( 1024 * 1024 ) ) + 1 ) + " MBs" )
? ( "Memóry Error: " + cValToChar( Int( nExtMem() / ( 1024 * 1024 ) ) + 1 ) + " MBs" )
? cMemoria := Trans( nExtMem(), "@E 9,999,999,999 Bytes free" )
? cMemoria := Trans( ( nExtMem() / ( 1024 * 1024 * 1014 ) ), "@E 999.99 GB Free" )
// or .97 = 4 Gbs.
? cMemoria := Trans( ( nExtMem() / ( 1024 * 1024 * 1014 ) + 1 ), "@E 999.99 GB Total" )
RETURN NIL
// END OF PROGRAM