VB6 Sistem 64 Bit mi Değil mi Ögrenme Kodu [VB6] [SRC]

VB6 Sistem 64 Bit mi Değil mi ögrenme Kodu [VB6] [SRC]

Vb6 sistemin 64 bit olup olmadığını ögrenmek,harmmy

Sisteminizin kaç bir olduğunu öğrenmek için kullanabilirsiniz.
Yada bir program yazdınız ama karşıdaki sistem 64 bit siz 32 bit için bir proje yazmışsanız 64 bitte sorun çıkartacaktır.

Örneğin: 64 Bitte hem System32 hem SysWow64 olarak sistem dosyaları barınmaktadır.

Kopyalama vs işlemleri için kaç bit olduğunu öğrenip dosyaları ona göre konumlandırabilirsiniz ya da başka bir işlevi..

Kodu kullanamayanlar ya da nasıl kullanılacağını bilmeyenler konu altından yorum yazabilirler.

Örnek kullanım:

'-*-*- Kernel32 Kütüphanesi-*-*-
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function IsWow64Process Lib "kernel32" (ByVal hProc As Long, bWow64Process As Boolean) As Long

Public Function Sistem64Bit() As Boolean
    Dim longHandle As Long, boolDonecekdeger As Boolean
    
    boolDonecekdeger = False
    longHandle = GetProcAddress(GetModuleHandle("kernel32"), "IsWow64Process")

    If longHandle > 0 Then
       Call IsWow64Process(GetCurrentProcess(), boolDonecekdeger)
    End If

    Sistem64Bit = boolDonecekdeger
End Function

If Sistem64Bit = True Then
   MsgBox "64 Bit sisteme sahipsiniz!"
Else
   Msgbox "Sisteminiz 32 Bit!"
End If

64 Bit Olup Olmadığını Ögrenme Kodunu Görmek için Tıklayın.

Tweet