• Home
 · 
• Files/File Controls/Input/Output
 · 
• To Get the Name of the Display Adapter,Keyboard Type,Mouse Type from the System.ini File using API

To Get the Name of the Display Adapter,Keyboard Type,Mouse Type from the System.ini File using API

To Get the Name of the Display Adapter,Keyboard Type,Mouse Type from the System.ini File using API Functions

API Declarations


"GetPrivateProfileStringA" (ByVal AppName As String,ByVal KeyName As String,ByVal default As String,ByVal lpResult As String,ByVal lpLen
As Long,ByVal lpFileName as String) As Long

Dim kName As String
Dim dName As String
Dim mName As String

Dim kLen as Long
dim mLen as long
dim dLen as Long



Rate To Get the Name of the Display Adapter,Keyboard Type,Mouse Type from the System.ini File using API

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

mname = string(255,chr(0))
dname = String(255,chr(0))

klen = len(kname)
mlen = len(mname)
dlen = len(dname)

'Display Adapter Name
GetPrivateProfileString "boot.description","display.drv","",dname,dlen _
 ,"C:\Windows\System.ini"
Msgbox left(dname,dlen)

'Keyboard Name
GetPrivateProfileString "boot.description","keyboard.typ","",kname,klen _
  ."C:\Windows\System.ini"
Msgbox left(kname,klen)

'Mouse Name
GetPrivateProfileString "boot.description","mouse.drv","",mname,mlen _
  ."C:\Windows\System.ini"
Msgbox left(mname,mlen)