안녕하세요. 최용일입니다.



윈도우에 있는 대부분의 디바이스들은 파일로 접근할수 있습니다....



procedure TForm1.Button1Click(Sender: TObject);

var

I: Integer;

ComName: string;

ComHandle: THandle;

begin

for I := 1 to 4 do

begin

ComName := 'COM' + IntToStr(I);

ComHandle := CreateFile(PChar(ComName), 0, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

if ComHandle <> INVALID_HANDLE_VALUE then

begin

ListBox1.Items.Add(ComName);

CloseHandle(ComHandle);

end;

end;

end;



^^ 항상 즐코하세요...



설창원 wrote:

> 제 컴에 에지 포트라는 시리얼 포트 확장기를 달았는데 포트 할당이 동적이라서 그러는데 컴에 설치되어있는 콤포트 리스트를 얻어올 방법이 없을까요?

> 고수님들 부탁합니다.