Xác định thư mục Windows

Trần Trung

E-mail: trantrung22@yahoo.com

Mục đích là để tìm xem thư mục của Windows có tên là gì, bình thường thì nó là Windows, nhưng  có người lại cài Windows với một cái tên khác,ví dụ: Win98se .Nếu chương trình của bạn có tham chiếu đến một file năm trong thư mục hệ thống, nhưng khi lập trình bạn đã gán đường dẫn mặc định là C:\Windows thì khi chạy trên máy của họ, chương trình của bạn sẽ không tìm thấy file cần thiết. 

Chương trình dưới đây sử dụng hàm API có tên là GetWindowsDirectory để xác định thư mục hệ thống

Copy đoạn code này và dán vào chương trình của bạn

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

Dim cWinDir As String

Private Sub Form_Load()
cWinDir = Space(144)
GetWindowsDirectory cWinDir, 144
MsgBox cWinDir, vbOKOnly, "Windows's Directory is: "
End Sub

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com