며칠전 USB Port를 직접 제어 해야 할일이 생겨서 예전 자료를 뒤지 던중 발견한 코드입니다.
USB나 Comport의 경우 레지스트리를 뒤져서 내용을 가져오는 방법이 가장많이 사용됩니다.
그런데, Device Dirve명을 논리적인 문장으로 가져오는 QueryDosDevice라는 명령을 이용하여 각종 드라이브와 USB, LPT, Comport등을 알아올수 있습니다.
보통은 QueryDosDevice(‘C:’, @istr[1],11000) ;를 하면 ‘DEVICE\HardDiskVolum1’ 또는 ‘DEVICE\HardDiskVolum1\PartisionXX’ 등과 같이 나타나게 됩니다.
이때 QueryDosDevice의 첫번째 파라미터에 Nil값을 주면 전체 디바이스명을 모두 가져오게 됩니다.
이를 이용한 꽁수이지요. 이 방법은 정석은 아닙니다.
하지만 유용한 방법이 될수는 있습니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
procedure TForm2.Button1Click(Sender: TObject); const MaxSize = 12000; Var Str: string; i, iSize : Integer; begin SetLength( Str, MaxSize ) ; FillChar( Str[1], MaxSize, #0 ); iSize := QueryDosDevice( nil , @Str[1], MaxSize ) ; try for i := 1 to iSize do if Str[i] = #0 then Str[i] := #13; Memo1.Lines.Text := Str; ListBox2.Clear; for I := 0 to Memo1.Lines.Count - 1 do begin if ( Pos('COM', Memo1.Lines[i] ) > 0 ) then ListBox2.Items.Add( Memo1.Lines[i] ); end; finally end; end; |
좋은 하루 되십시요.
최신 댓글