Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как найти список параллельных портов?

Delphi , Файловая система , Порты

Как найти список параллельных портов?

Code:

function PortExists(const PortName: string): Boolean;
var
hPort: HWND;
begin
Result := False;
hPort := CreateFile(PChar(PortName), {name}
   GENERIC_READ or GENERIC_WRITE, {access attributes}
   0, {no sharing}
   nil, {no security}
   OPEN_EXISTING, {creation action}
   FILE_ATTRIBUTE_NORMAL or
   FILE_FLAG_OVERLAPPED, {attributes}
   0); {no template}
if hPort <> INVALID_HANDLE_VALUE then
begin
   CloseHandle(hPort);
   Result := True;
end;
end;
 
{Parallel Ports}
for i := 1 to 9 do
begin
if PortExists('LPT' + IntToStr(i)) then
   List.Append('Ports: Printer Port (LPT' + IntTostr(i) + ')');
end;
Взято с Delphi Knowledge Base: http://www.baltsoft.com/

Статья Как найти список параллельных портов? раздела Файловая система Порты может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Порты ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 01:10:37/0.036194801330566/2