home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD170713142001.psc / FDesktop.bas next >
Encoding:
BASIC Source File  |  2001-03-10  |  1.6 KB  |  39 lines
  1. Attribute VB_Name = "basFDesktop"
  2. Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
  3. Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  4.  
  5. 'Public Declare Function FoxAlphaBlend Lib "FoxCBmp3.dll" (ByVal HDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hScrDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal alpha As Byte, Optional ByVal MaskColor As Long, Optional ByVal Flags As Long) As Long
  6.  
  7. Public Const SPI_SETDESKWALLPAPER = 20
  8. Public Const SPIF_SENDWININICHANGE = &H2
  9. Public Const SPIF_UPDATEINIFILE = &H1
  10.  
  11. Dim m_WinPath As String
  12.  
  13. Public Function WinPath() As String
  14.     'This function retrieves the Windows path.
  15.     If m_WinPath = "" Then
  16.         m_WinPath = String(1024, 0)
  17.         GetWindowsDirectory m_WinPath, Len(m_WinPath)
  18.         m_WinPath = Left(m_WinPath, InStr(m_WinPath, Chr(0)) - 1)
  19.         If Right(m_WinPath, 1) <> "\" Then m_WinPath = m_WinPath & "\"
  20.     End If
  21.     WinPath = m_WinPath
  22. End Function
  23.  
  24. Public Function TimeString(ByVal Seconds As Long) As String
  25.     Dim M As Long, S As Long, H As Long
  26.     S = Seconds
  27.     M = S \ 60: S = S Mod 60
  28.     H = M \ 60: M = M Mod 60
  29.     
  30.     If H Then
  31.         TimeString = H & ":" & String(2 - Len(CStr(M)), "0") & M & " h"
  32.     ElseIf M Then
  33.         TimeString = M & ":" & String(2 - Len(CStr(S)), "0") & S & " min"
  34.     Else
  35.         TimeString = S & " sec"
  36.     End If
  37.     
  38. End Function
  39.