• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 8 رای - 3.13 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سورس کد بدست اوردن مسیر پوشه ویندوز و سیستم عامل(ویژوال بیسیک 6)
حالت موضوعی
#1
Getting the Windows and System Directory
با تابع های زیر میتونید مسیر پوشه ویندوز و سیستم 32 رو بدست بیارید.
کد:
Getting the Windows and System Directory

Declare Function GetSystemDirectory Lib "kernel32" _
    Alias "GetSystemDirectoryA" _
    (ByVal lpBuffer As String, _
     ByVal nSize As Long) As Long

Declare Function GetWindowsDirectory Lib "kernel32" _
    Alias "GetWindowsDirectoryA" _
    (ByVal lpBuffer As String, _
     ByVal nSize As Long) As Long

Public Function GetWindowsDir() As String
    Dim sDir As String * 255
    Dim iReturn As Integer
    Dim lSize As Long
    
    sDir = Space$(255)
    lSize = Len(sDir)
    iReturn = GetWindowsDirectory(sDir, lSize)
    
    GetWindowsDir = Left$(sDir, InStr(1, sDir, Chr$(0)) - 1)

End Function
Public Function GetSystemDir() As String
    Dim sDir As String * 255
    Dim iReturn As Integer
    Dim lSize As Long
    
    sDir = Space$(255)
    lSize = Len(sDir)
    iReturn = GetSystemDirectory(sDir, lSize)
    
    
    GetSystemDir = Left$(sDir, InStr(1, sDir, Chr$(0)) - 1)

End Function
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  کدگذاری روی پوشه ها aghamali 0 865 10-23-2017، 08:15 PM
آخرین ارسال: aghamali
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 12,503 05-15-2017، 04:35 PM
آخرین ارسال: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 5,125 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 11,438 08-13-2015، 10:08 PM
آخرین ارسال: Amin_Mansouri
  مشکل با ارور ویژوال بیسیک aghamali 4 5,368 07-03-2015، 11:14 AM
آخرین ارسال: aaaaaaaaa
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 7,028 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  مشکل با paste بیسیک 6 aghamali 1 2,504 01-18-2015، 08:53 PM
آخرین ارسال: aghamali
  2 مشکل بیسیک 6 در ویندوز سون aghamali 3 5,360 11-07-2014، 04:25 PM
آخرین ارسال: aghamali
  سورس کد ذخیره میخوام روشنا 5 6,798 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 3,721 06-07-2014، 09:19 PM
آخرین ارسال: aleas

پرش به انجمن:


Browsing: 1 مهمان