home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wrnsr094 / global.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  1.7 KB  |  55 lines
  1. Declare Function GetPrivateProfileInt% Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal nDefault%, ByVal lpFileName$)
  2.  
  3. Declare Function getprivateprofilestring% Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%, ByVal lpFileName$)
  4.  
  5. Declare Function WritePrivateProfileString% Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpString$, ByVal lpFileName$)
  6.  
  7. Declare Function GetFocus Lib "user" () As Integer
  8.  
  9. Declare Function SendMessage Lib "user" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wp As Integer, lp As Any) As Long
  10.  
  11. Declare Function APISetFocus Lib "user" Alias "SetFocus" (ByVal hWnd%) As Integer
  12.  
  13. Declare Function winexec Lib "Kernel" (ByVal lpCmdLine$, ByVal nCmdShow%) As Integer
  14.  
  15. Global usenet_file As String
  16. Global news_dir As String
  17. Global msg_quote As String
  18. Global mail_file As String
  19.  
  20. Global dir_name As String
  21. Global msg_filename As String
  22. Global user_id As String
  23. Global time_zone As String
  24. Global site_name As String
  25. Global full_name As String
  26. Global organisation As String
  27. Global out_path As String
  28. Global seq_path As String
  29. Global out_news_list As String
  30. Global sign_filename As String
  31. Global news_reply As String
  32. Global uudecoder As String
  33. Global batch_exe As String
  34.  
  35. Global author As String
  36. Global subject As String
  37. Global msg_id As String
  38.  
  39. Global reading_mail As Integer
  40. Global replying As Integer
  41. Global registered As Integer
  42. Global reply_written As Integer
  43.  
  44. Global Const true = -1
  45. Global Const false = 0
  46.  
  47. Global new_line As String
  48.  
  49. Global Const white = &H80000005
  50. Global Const grey = &HE0E0E0
  51.  
  52. Global Const WM_USER = &H400
  53. Global Const LB_SETTABSTOPS = WM_USER + 19
  54.  
  55.