_Мика_ » 31.03.2004 (Ср) 19:08
Private Declare Function ConfigurePort Lib "winspool.drv" Alias "ConfigurePortA" (ByVal pName As String, ByVal hwnd As Long, ByVal pPortName As String) As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL:
http://www.allapi.net/
'E-MAil:
KPDTeam@Allapi.net
MsgBox ConfigurePort("", Me.hwnd, "COM2")
MsgBox ConfigurePort("", Me.hwnd, "LPT1")
End Sub
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!