'==============================================================================
'
'  Common Routines
'  Copyright (c) 1996-2005 PowerBASIC, Inc.
'
'  Declares for 32-bit Visual Basic
'
'==============================================================================

Declare Function Exist   Lib "COMMON32.DLL" Alias "EXIST" (Filename As String) As Integer
Declare Sub GetFileDate  Lib "COMMON32.DLL" Alias "GETFILEDATE" (sFileName As String, iYear As Long, iMonth As Long, iDay As Long, iHour As Long, iMinute AS LONG, iSecond As Long)
Declare Sub SetFileDate  Lib "COMMON32.DLL" Alias "SETFILEDATE" (sFileName As String, iYear As Long, iMonth As Long, iDay As Long, iHour As Long, iMinute AS LONG, iSecond As Long)

Declare Function IsNT3   Lib "COMMON32.DLL" Alias "ISNT3" () As Long
Declare Function IsWin95 Lib "COMMON32.DLL" Alias "ISWIN95" () As Long
Declare Function IsWin98 Lib "COMMON32.DLL" Alias "ISWIN98" () As Long
Declare Function IsWinNT Lib "COMMON32.DLL" Alias "ISWINNT" () As Long
Declare Function IsWin2K Lib "COMMON32.DLL" Alias "ISWIN2K" () As Long
Declare Function IsWinXP Lib "COMMON32.DLL" Alias "ISWINXP" () As Long

Declare Function LoadBmpFromFile Lib "COMMON32.DLL" Alias "LOADBMPFROMFILE" (Filename As String) As Long
Declare Function LongToShort     Lib "COMMON32.DLL" Alias "LONGTOSHORT" (InPath As String) As String
Declare Function NetUserName     Lib "COMMON32.DLL" Alias "NETUSERNAME" () As String
Declare Function Processor       Lib "COMMON32.DLL" Alias "PROCESSOR" () As String

Declare Sub CalcPageSize Lib "COMMON32.DLL" Alias "CALCPAGESIZE" (ByVal hDC As Long, Rows As Long, Columns As Long)
Declare Sub CenterWindow Lib "COMMON32.DLL" Alias "CENTERWINDOW" (ByVal hWnd As Long)
Declare Sub SplitPath    Lib "COMMON32.DLL" Alias "SPLITPATH" (Source As String, Fldrive As String, Flpath As String, Filename As String)
