چطور میشه لیست دستگاههای موجود در سیستم را در زبان دلفی تهیه کرد؟

با سورس کد زیر می توانید لیست دستگاههای موجود در کامپیوتر را ببینید.
کامپوننتهای زیر را اضافه کنید و در بخش مربوط به رویداد لیک دکمه خود سورس زیر را هم بنویسید
TMemo
TButton
اینکه چطور میشه به یک پورت اطلاعات فرستاد یا اطلاعاتی را خواند را هم در مقالات بعدی توضیح خواهم داد.

procedure TForm1.Button1Click(Sender: TObject) ;
var
  istr: string;
  isize, j: dword;
begin
   setlength(istr, 4000) ;
   isize := QueryDosDevice(nil, @istr[1], 4000) ;
   for j := 1 to isize do
     if istr[j] = #0 then istr[j] := #10;
   memo1.lines.CommaText := istr;
end;