Как найти список параллельных портов?
Материал из DRKB
Как найти список параллельных портов?[править | править код]
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;
Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 01348