home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD7512772000.psc / Global.bas next >
Encoding:
BASIC Source File  |  1999-05-26  |  730 b   |  24 lines
  1. Attribute VB_Name = "GlobalModule"
  2. Option Explicit
  3.  
  4. ' Constantes
  5. Public Const TITULO_PROGRAMA = "Senna Spy One EXE Maker 1.0"
  6.  
  7. ' Declaracao de Variaveis Publicas
  8. Public xAnswer As Variant
  9.  
  10. Public cMainEXEFile As String
  11.  
  12. Public cDiretorioSystem As String
  13. Public cDiretorioWindows As String
  14.  
  15. Public cPathProjeto As String
  16. Public cNomeProjeto As String
  17. Public cFile As String
  18.  
  19. Public cBuffer As String * 255
  20.  
  21. ' Declaracoes da API
  22. Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  23. Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  24.