FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Como dectectar los puerto serie y paralelo de mi pc
hola amigos del foros nuevamente estoy aqui con una inquietud y es que siempre tengo una pues siempre vivo inventando analizando para saber comos e hacen las cosa pues ya les cuento mi nueva inquietud y es la siguiente:
como yo hago una aplicacion en delphi 7 que me dectecte los puerto serie y paralelo de mi pc para hacerle una idea en este foro aparecieron como dectectar memorias usb desde delphi el cual tenia el siguiente codigo var Letra: Char; begin for Letra:= 'C' to 'Z' do if GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE then begin ShowMessage('Esto es una memoria usb '+Letra+':\'); end; end; y realmente funciona porq lo probe pero me pregunto como modificar este codigo para dectectar los puerto serie y paralelo |
#2
|
||||
|
||||
Cita:
Código:
var H: THandle; Numero: Char; begin for Numero:= '1' to '9' do begin H:= CreateFile(PChar('\\.\COM' + Numero),GENERIC_READ or GENERIC_WRITE,0, nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); if GetLastError <> ERROR_FILE_NOT_FOUND then ShowMessage('Existe el puerto COM' + Numero); if H <> INVALID_HANDLE_VALUE then CloseHandle(H); end; end; Código:
var H: THandle; Numero: Char; begin for Numero:= '1' to '9' do begin H:= CreateFile(PChar('\\.\LPT' + Numero),GENERIC_READ or GENERIC_WRITE,0, nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); if GetLastError <> ERROR_FILE_NOT_FOUND then ShowMessage('Existe el puerto LPT' + Numero); if H <> INVALID_HANDLE_VALUE then CloseHandle(H); end; end; http://www.clubdelphi.com/foros/showthread.php?t=39961 |
#3
|
||||
|
||||
gracia seoane era exactamente lo que queria
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como puedo controlar el puerto paralelo con C#? | z-7 | .NET | 1 | 09-01-2006 03:13:52 |
Como puedo manejar el puerto paralelo con Delphi 2005 .NET? | z-7 | .NET | 4 | 26-07-2005 12:47:40 |
Puerto Paralelo | jorge | Lazarus, FreePascal, Kylix, etc. | 1 | 20-04-2005 03:25:42 |
¿Como tomar datos a traves del puerto paralelo de la PC? | Roger_Fernandez | Varios | 0 | 18-11-2004 16:08:51 |
|